Ported from Moose to Moo

davorg-cpan · Oct 1, 2014 · 753a3c7 · 753a3c7
1 parent 98b520e
commit 753a3c7
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 22 deletions.
diff --git a/Build.PL b/Build.PL
@@ -1,20 +1,21 @@
 use Module::Build;
 my $build = Module::Build->new(
-	module_name => 'Array::Compare',
-	license => 'perl',
-	requires => {
-		perl    => '5.6.0',
-		Carp    => 0,
-		Moose	=> 0,
-	},
-        build_requires => {
-                Test::NoWarnings => 0,
-        },
-	build_recommends => {
-		Test::Pod           => 0,
-		Test::Pod::Coverage => 0,
-	},
-        create_makefile_pl => 'traditional',
+    module_name => 'Array::Compare',
+    license => 'perl',
+    requires => {
+        perl            => '5.6.0',
+        Carp            => 0,
+        Moo             => 0,
+        Types::Standard => 0,
+    },
+    build_requires => {
+        Test::NoWarnings => 0,
+    },
+    build_recommends => {
+        Test::Pod           => 0,
+        Test::Pod::Coverage => 0,
+    },
+    create_makefile_pl => 'traditional',
 );
 
 $build->create_build_script;

diff --git a/lib/Array/Compare.pm b/lib/Array/Compare.pm
@@ -183,16 +183,17 @@ use strict;
 use warnings;
 our ($VERSION, $AUTOLOAD);
 
-use Moose;
+use Moo;
+use Types::Standard qw(Str Bool HashRef);
 use Carp;
 
-$VERSION = '2.02';
+$VERSION = '2.10';
 
-has Sep        => ( is => 'rw', isa => 'Str',     default => '^G' );
-has WhiteSpace => ( is => 'rw', isa => 'Bool',    default => 1 );
-has Case       => ( is => 'rw', isa => 'Bool',    default => 1 );
-has DefFull    => ( is => 'rw', isa => 'Bool',    default => 0 );
-has Skip       => ( is => 'rw', isa => 'HashRef', default => sub { {} } );
+has Sep        => ( is => 'rw', isa => Str,     default => '^G' );
+has WhiteSpace => ( is => 'rw', isa => Bool,    default => 1 );
+has Case       => ( is => 'rw', isa => Bool,    default => 1 );
+has DefFull    => ( is => 'rw', isa => Bool,    default => 0 );
+has Skip       => ( is => 'rw', isa => HashRef, default => sub { {} } );
 
 =head2 new [ %OPTIONS ]