Switch Celogeek::SCK::Cleaner to Moo

szabgab · Mar 18, 2012 · a9ba94a · a9ba94a
1 parent bd8dfc5
commit a9ba94a
Showing 1 changed file with 10 additions and 17 deletions.
diff --git a/lib/Celogeek/SCK/Cleaner.pm b/lib/Celogeek/SCK/Cleaner.pm
@@ -11,17 +11,14 @@ use 5.014;
 use Data::Dumper;
 use Carp;
 
-use Moose;
-with 'MooseX::Getopt';
-use MooseX::Params::Validate;
-use MooseX::Types::URI qw(Uri);
+use Moo;
+use MooX::Options;
+use URI;
+use Regexp::Common qw/number/;
 
-has 'run' => (
-    documentation => 'remove bad link effectivly',
+option 'run' => (
+    doc           => 'remove bad link effectivly',
     is            => 'rw',
-    isa           => 'Bool',
-    required      => 1,
-    default       => 0,
 );
 
 =method is_valid_uri
@@ -31,14 +28,10 @@ Check if URI is valid
 =cut
 
 sub is_valid_uri {
-    my ( $self, @opts ) = @_;
-    my ($uri) = validated_list(
-        \@opts,
-        uri => {
-            isa    => Uri,
-            coerce => 1,
-        }
-    );
+    my ( $self, %opts ) = @_;
+    my $uri = $opts{uri};
+    ref $uri eq 'URI'
+        or $uri = URI->new($uri);
 
     my @bad_url_regexes = (
         qr{^localhost$}x,               qr{^localhost:}x,