Merge branch 'stevenage-open311'

1 files changed, 0 insertions, 43 deletions

diff --git a/perllib/Open311/Endpoint/Schema/Regex.pm b/perllib/Open311/Endpoint/Schema/Regex.pm
deleted file mode 100644
index a79542198..000000000
--- a/perllib/Open311/Endpoint/Schema/Regex.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-use strict; use warnings;
-package Open311::Endpoint::Schema::Regex;
-use parent 'Data::Rx::CommonType::EasyNew';
-
-use Carp ();
-
-sub type_uri {
-    'tag:wiki.open311.org,GeoReport_v2:rx/regex',
-}
-
-sub guts_from_arg {
-    my ($class, $arg, $rx) = @_;
-    $arg ||= {};
-
-    my $pattern = delete $arg->{pattern};
-    my $message = delete $arg->{message};
-    if (my @unexpected = keys %$arg) {
-        Carp::croak sprintf "Unknown arguments %s in constructing %s",
-            (join ',' => @unexpected), $class->type_uri;
-    }
-
-    return {
-        str_schema => $rx->make_schema('//str'),
-        pattern => qr/$pattern/,
-        message => $message,
-    };
-}
-
-sub assert_valid {
-    my ($self, $value) = @_;
-
-    $self->{str_schema}->assert_valid( $value );
-
-    return 1 if $value =~ $self->{pattern};
-
-    $self->fail({
-        error => [ qw(type) ],
-        message => $self->{message} || "found value doesn't match regex",
-        value => $value,
-    })
-}
-
-1;