MT#8397 Remove usage of Regexp::Parser

Build.PL

@@ -79,7 +79,6 @@ my $builder = Local::Module::Build->new(
         'Net::Telnet' => 0,
         'NGCP::Schema' => '2.003',
         'Plack::Middleware::Deflater' => 0,
-        'Regexp::Parser' => 0,
         'Scalar::Util' => 0,
         'Sereal::Decoder' => 0,
         'Sereal::Encoder' => 0,

debian/control

@@ -47,7 +47,6 @@ Build-Depends: debhelper (>= 8),
                libpath-tiny-perl,
                libperl5i-perl,
                libplack-middleware-deflater-perl,
-               libregexp-parser-perl,
                librsvg2-bin,
                libsereal-decoder-perl,
                libsereal-encoder-perl,
@@ -125,7 +124,6 @@ Depends: gettext,
          libpath-tiny-perl,
          libperl5i-perl,
          libplack-middleware-deflater-perl,
-         libregexp-parser-perl,
          librsvg2-bin,
          libsereal-decoder-perl,
          libsereal-encoder-perl,

lib/NGCP/Panel/Field/Regexp.pm

@@ -1,15 +1,13 @@
 package NGCP::Panel::Field::Regexp;
 use HTML::FormHandler::Moose;
-use Regexp::Parser;
 extends 'HTML::FormHandler::Field::Text';
 
-my $parser = Regexp::Parser->new();
-
 sub validate {
     my ( $self ) = @_;
     my $pattern = $self->value;
-    return $self->add_error($self->label . " is no valid regexp")
-        unless $parser->regex($pattern);
+    my $valid_regexp = eval {
+        qr/$pattern/;
+    } or return $self->add_error($self->label . " is no valid regexp");
     return 1;
 }