less dependency

lopnor · Aug 15, 2010 · 7a7c810 · 7a7c810
1 parent c3044d4
commit 7a7c810
Show file tree

Hide file tree

Showing 24 changed files with 33 additions and 43 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -11,9 +11,8 @@ requires 'Net::OAuth';
 requires 'LWP::UserAgent';
 requires 'URI';
 requires 'Lingua::EN::Inflect::Number';
-requires 'namespace::autoclean';
 requires_any_moose(
-    prefer => 'Moose',
+    prefer => 'Mouse',
     moose => '0.56',
     mouse => '0.51',
 );

diff --git a/lib/Net/Google/DataAPI.pm b/lib/Net/Google/DataAPI.pm
@@ -191,6 +191,10 @@ sub entry_has {
     }
 }
 
+__PACKAGE__->meta->make_immutable;
+no Any::Moose;
+no Any::Moose '::Exporter';
+
 1;
 __END__
 

diff --git a/lib/Net/Google/DataAPI/Auth/AuthSub.pm b/lib/Net/Google/DataAPI/Auth/AuthSub.pm
@@ -18,4 +18,8 @@ sub sign_request {
     return $req;
 }
 
+__PACKAGE__->meta->make_immutable;
+
+no Any::Moose;
+
 1;
diff --git a/lib/Net/Google/DataAPI/Auth/ClientLogin/Multiple.pm b/lib/Net/Google/DataAPI/Auth/ClientLogin/Multiple.pm
@@ -38,6 +38,10 @@ sub _get_auth_params {
     return [ $authsub->auth_params ];
 }
 
+__PACKAGE__->meta->make_immutable;
+
+no Any::Moose;
+
 1;
 __END__
 

diff --git a/lib/Net/Google/DataAPI/Auth/Null.pm b/lib/Net/Google/DataAPI/Auth/Null.pm
@@ -4,4 +4,7 @@ with 'Net::Google::DataAPI::Role::Auth';
 
 sub sign_request {$_[1]};
 
+__PACKAGE__->meta->make_immutable;
+no Any::Moose;
+
 1;
diff --git a/lib/Net/Google/DataAPI/Auth/OAuth.pm b/lib/Net/Google/DataAPI/Auth/OAuth.pm
@@ -145,6 +145,9 @@ sub sign_request {
     return $req;
 }
 
+__PACKAGE__->meta->make_immutable;
+no Any::Moose;
+
 1;
 __END__
 

diff --git a/lib/Net/Google/DataAPI/Role/Auth.pm b/lib/Net/Google/DataAPI/Role/Auth.pm
@@ -1,7 +1,6 @@
 package Net::Google::DataAPI::Role::Auth;
 use Any::Moose '::Role';
-use namespace::autoclean;
-
 requires 'sign_request';
+no Any::Moose '::Role';
 
 1;
diff --git a/lib/Net/Google/DataAPI/Role/Entry.pm b/lib/Net/Google/DataAPI/Role/Entry.pm
@@ -1,6 +1,5 @@
 package Net::Google::DataAPI::Role::Entry;
 use Any::Moose '::Role';
-use namespace::autoclean;
 use Carp;
 use XML::Atom;
 use XML::Atom::Entry;
@@ -133,6 +132,8 @@ sub delete {
     return $res->is_success;
 }
 
+no Any::Moose '::Role';
+
 1;
 
 __END__

diff --git a/lib/Net/Google/DataAPI/Role/HasContent.pm b/lib/Net/Google/DataAPI/Role/HasContent.pm
@@ -1,6 +1,5 @@
 package Net::Google::DataAPI::Role::HasContent;
 use Any::Moose '::Role';
-use namespace::autoclean;
 our $VERSION='0.02';
 
 requires 'update';
@@ -29,6 +28,8 @@ sub param {
     }
 }
 
+no Any::Moose '::Role';
+
 1;
 
 __END__

diff --git a/lib/Net/Google/DataAPI/Role/Service.pm b/lib/Net/Google/DataAPI/Role/Service.pm
@@ -1,6 +1,5 @@
 package Net::Google::DataAPI::Role::Service;
 use Any::Moose '::Role';
-use namespace::autoclean;
 use Carp;
 use LWP::UserAgent;
 use URI;
@@ -213,6 +212,8 @@ sub delete {
     return $res;
 }
 
+no Any::Moose '::Role';
+
 1;
 
 __END__

diff --git a/lib/Net/Google/DataAPI/Types.pm b/lib/Net/Google/DataAPI/Types.pm
@@ -26,4 +26,9 @@ coerce 'Net::Google::DataAPI::Types::URI'
     => from 'Str'
     => via { URI->new(( m{://} ) ? $_ : ('http://'.$_)) };
 
+__PACKAGE__->meta->make_immutable;
+
+no Any::Moose;
+no Any::Moose '::Util::TypeConstraints';
+
 1;
diff --git a/t/01_role/01_service/03_request.t b/t/01_role/01_service/03_request.t
@@ -1,10 +1,9 @@
 use strict;
 use warnings;
-use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::MockModule;
 use Test::Exception;
+use Test::MockObject;
 use HTTP::Response;
 
 {

diff --git a/t/01_role/01_service/04_methods.t b/t/01_role/01_service/04_methods.t
@@ -1,7 +1,5 @@
 use strict;
 use warnings;
-use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::MockModule;
 use HTTP::Response;
@@ -22,7 +20,6 @@ use HTTP::Response;
         default => 'http://example.com/myfeed',
     );
 }
-
 my $ua = Test::MockModule->new('LWP::UserAgent');
 my $ok_res = HTTP::Response->parse(<<END);
 200 OK

diff --git a/t/01_role/01_service/05_debug.t b/t/01_role/01_service/05_debug.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::MockModule;
 use Test::Warn;

diff --git a/t/01_role/02_entry/01_instanciate.t b/t/01_role/02_entry/01_instanciate.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More;
-use t::Util;
 
 BEGIN {
     use_ok 'Net::Google::DataAPI::Role::Entry';

diff --git a/t/01_role/02_entry/02_update.t b/t/01_role/02_entry/02_update.t
@@ -4,7 +4,6 @@ use Test::More;
 use Test::MockModule;
 use Test::Exception;
 use HTTP::Response;
-use t::Util;
 
 {
     package MyEntry;

diff --git a/t/02_feedurl/01_basic.t b/t/02_feedurl/01_basic.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use t::Util;
 use Test::More;
 
 BEGIN {

diff --git a/t/02_feedurl/02_add.t b/t/02_feedurl/02_add.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::Exception;
 use Test::MockModule;

diff --git a/t/02_feedurl/03_list.t b/t/02_feedurl/03_list.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::MockModule;
 use Test::MockObject;

diff --git a/t/02_feedurl/04_delete.t b/t/02_feedurl/04_delete.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use lib 't/lib';
-use t::Util;
 use Test::More;
 use Test::Exception;
 use Test::MockModule;

diff --git a/t/02_feedurl/05_error.t b/t/02_feedurl/05_error.t
@@ -1,6 +1,5 @@
 use strict;
 use warnings;
-use t::Util;
 use Test::More;
 use Test::Exception;
 use Test::MockModule;

diff --git a/t/03_entry_has/01_basic.t b/t/03_entry_has/01_basic.t
@@ -1,6 +1,5 @@
 use strict;
 use warnings;
-use t::Util;
 use Test::More;
 use Test::MockModule;
 use HTTP::Response;

diff --git a/t/05_types.t b/t/05_types.t
@@ -3,7 +3,7 @@ use URI;
 
 {
     package My::Test;
-    use Moose;
+    use Any::Moose;
     use Net::Google::DataAPI::Types;
 
     has url => (

diff --git a/t/Util.pm b/t/Util.pm