Switch from Moose to Any::Moose so we can use a much lighter-weight M…

…ouse implementation
fayland · Jun 12, 2009 · acd132a · acd132a
1 parent 0c2311b
commit acd132a
Show file tree

Hide file tree

Showing 21 changed files with 52 additions and 55 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -8,7 +8,7 @@ license  'perl';
 repository 'http://github.com/fayland/perl-net-github/tree/master';
 
 requires 'URI::Escape';
-requires 'Moose' => '0.57';
+requires 'Any::Moose';
 requires 'Crypt::SSLeay';
 requires 'WWW::Mechanize::GZip';
 requires 'JSON::Any';

diff --git a/lib/Net/GitHub.pm b/lib/Net/GitHub.pm
@@ -1,6 +1,6 @@
 package Net::GitHub;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.17';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -12,19 +12,16 @@ sub new {
     my $obj;
     if ( exists $params->{version} and $params->{version} == 1 ) {
         require Net::GitHub::V1;
-        $obj = Net::GitHub::V1->new($params);
+        return Net::GitHub::V1->new($params);
     } else {
         require Net::GitHub::V2;
-        $obj = Net::GitHub::V2->new($params);
+        return Net::GitHub::V2->new($params);
     }
 
-    return $class->meta->new_object(
-        __INSTANCE__ => $obj,
-        @_,
-    );
+    #return $class->meta->new_object( __INSTANCE__ => $obj, @_,);
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable(inline_constructor => 0);
 
 1;
@@ -96,7 +93,7 @@ L<http://github.com/fayland/perl-net-github/tree/master>
 
 =head1 SEE ALSO
 
-L<Moose>
+L<Any::Moose>
 
 =head1 AUTHOR
 

diff --git a/lib/Net/GitHub/V1.pm b/lib/Net/GitHub/V1.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -31,7 +31,7 @@ has '_search' => (
     handles => ['search'],
 );
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;
@@ -102,7 +102,7 @@ L<http://github.com/fayland/perl-net-github/tree/master>
 
 =head1 SEE ALSO
 
-L<Moose>
+L<Any::Moose>
 
 =head1 AUTHOR
 

diff --git a/lib/Net/GitHub/V1/Project.pm b/lib/Net/GitHub/V1/Project.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -67,7 +67,7 @@ sub BUILDARGS {
     }
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/Project/Downloads.pm b/lib/Net/GitHub/V1/Project/Downloads.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project::Downloads;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -52,7 +52,7 @@ sub _build_downloads {
     return \@downloads;
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/Project/Info.pm b/lib/Net/GitHub/V1/Project/Info.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project::Info;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -83,7 +83,7 @@ has 'watcher_num' => (
     },
 );
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/Project/Role.pm b/lib/Net/GitHub/V1/Project/Role.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project::Role;
 
-use Moose::Role;
+use Any::Moose 'Role';
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -38,7 +38,7 @@ sub args_to_pass {
     return $ret;
 }
 
-no Moose::Role;
+no Any::Moose;
 
 1;
 __END__
@@ -51,7 +51,7 @@ Net::GitHub::V1::Project::Role - Common between Net::GitHub::V1::Project::* libs
 
     package Net::GitHub::V1::Project::XXX;
     
-    use Moose;
+    use Any::Moose;
     with 'Net::GitHub::V1::Project::Role';
 
 =head1 DESCRIPTION

diff --git a/lib/Net/GitHub/V1/Project/Source.pm b/lib/Net/GitHub/V1/Project/Source.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project::Source;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -28,7 +28,7 @@ sub commit {
     return $commits->{"commit"};
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/Project/Wiki.pm b/lib/Net/GitHub/V1/Project/Wiki.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Project::Wiki;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -69,7 +69,7 @@ sub edit_or_new {
     }
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/Role.pm b/lib/Net/GitHub/V1/Role.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Role;
 
-use Moose::Role;
+use Any::Moose 'Role';
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -91,7 +91,7 @@ sub signin {
     }
 }
 
-no Moose::Role;
+no Any::Moose;
 
 1;
 __END__
@@ -104,7 +104,7 @@ Net::GitHub::V1::Role - Common between Net::GitHub::V1::* libs
 
     package Net::GitHub::V1::XXX;
     
-    use Moose;
+    use Any::Moose;
     with 'Net::GitHub::V1::Role';
 
 =head1 DESCRIPTION

diff --git a/lib/Net/GitHub/V1/Search.pm b/lib/Net/GitHub/V1/Search.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::Search;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -18,7 +18,7 @@ sub search {
     return $data;
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V1/User.pm b/lib/Net/GitHub/V1/User.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V1::User;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.06';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -35,7 +35,7 @@ sub BUILDARGS {
 package     # hide from PAUSE
     Net::GitHub::V1::UserObj;
 
-use Moose;
+use Any::Moose;
 
 has 'name' => ( is => 'rw' );
 has 'repositories' => (
@@ -46,7 +46,7 @@ has 'email' => ( is => 'rw' );
 has 'location' => ( is => 'rw' );
 has 'company' => ( is => 'rw' );
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V2.pm b/lib/Net/GitHub/V2.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.08';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -80,7 +80,7 @@ has 'network' => (
     handles => ['network_meta', 'network_data_chunk']
 );
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;
@@ -168,7 +168,7 @@ L<Net::GitHub::Network>
 
 =head1 SEE ALSO
 
-L<Moose>
+L<Any::Moose>
 
 =head1 AUTHOR
 

diff --git a/lib/Net/GitHub/V2/Commits.pm b/lib/Net/GitHub/V2/Commits.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2::Commits;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.13';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -42,7 +42,7 @@ sub show {
     return $self->get_json_to_obj( "commits/show/$owner/$repo/$sha1", 'commit' );
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V2/HasRepo.pm b/lib/Net/GitHub/V2/HasRepo.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2::HasRepo;
 
-use Moose::Role;
+use Any::Moose 'Role';
 
 our $VERSION = '0.13';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -19,7 +19,7 @@ sub args_to_pass {
     return $ret;
 }
 
-no Moose::Role;
+no Any::Moose;
 
 1;
 __END__
@@ -32,7 +32,7 @@ Net::GitHub::V2::HasRepo - Role for Net::GitHub::V2 for classes that use repos
 
     package Net::GitHub::V2::XXX;
     
-    use Moose;
+    use Any::Moose;
     with 'Net::GitHub::V2::HasRepo';
 
 =head1 DESCRIPTION

diff --git a/lib/Net/GitHub/V2/Issues.pm b/lib/Net/GitHub/V2/Issues.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2::Issues;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.17';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -154,7 +154,7 @@ sub comments {
     }
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V2/Network.pm b/lib/Net/GitHub/V2/Network.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2::Network;
 
-use Moose;
+use Any::Moose;
 
 our $VERSION = '0.07';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -33,7 +33,7 @@ sub network_data_chunk {
     return $self->json->jsonToObj($json);
 }
 
-no Moose;
+no Any::Moose;
 __PACKAGE__->meta->make_immutable;
 
 1;

diff --git a/lib/Net/GitHub/V2/NoRepo.pm b/lib/Net/GitHub/V2/NoRepo.pm
@@ -1,6 +1,6 @@
 package Net::GitHub::V2::NoRepo;
 
-use Moose::Role;
+use Any::Moose 'Role';
 
 our $VERSION = '0.17';
 our $AUTHORITY = 'cpan:FAYLAND';
@@ -110,7 +110,7 @@ sub args_to_pass {
     return $ret;
 }
 
-no Moose::Role;
+no Any::Moose;
 
 1;
 __END__
@@ -123,7 +123,7 @@ Net::GitHub::V2::NoRepo - Base role for Net::GitHub::V2, no repo access
 
     package Net::GitHub::V2::XXX;
     
-    use Moose;
+    use Any::Moose;
     with 'Net::GitHub::V2::NoRepo';
 
 =head1 DESCRIPTION