[Bps-public-commit] r19751 - in Net-Google-Code/trunk/lib/Net/Google: .

sunnavy at bestpractical.com sunnavy at bestpractical.com
Tue May 26 02:52:50 EDT 2009


Author: sunnavy
Date: Tue May 26 02:52:49 2009
New Revision: 19751

Added:
   Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm
Modified:
   Net-Google-Code/trunk/lib/Net/Google/Code.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Download.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Wiki.pm

Log:
add Role.pm to aggregate all the roles so we can easily "with" them

Modified: Net-Google-Code/trunk/lib/Net/Google/Code.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code.pm	Tue May 26 02:52:49 2009
@@ -1,10 +1,7 @@
 package Net::Google::Code;
 
 use Moose;
-with 'Net::Google::Code::Role::Fetchable', 'Net::Google::Code::Role::URL',
-  'Net::Google::Code::Role::Pageable', 'Net::Google::Code::Role::HTMLTree',
-  'Net::Google::Code::Role::Authentication',
-  'Net::Google::Code::Role::DateTime';
+with 'Net::Google::Code::Role';
 use Scalar::Util qw/blessed/;
 
 our $VERSION = '0.05';

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Download.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Download.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Download.pm	Tue May 26 02:52:49 2009
@@ -4,10 +4,7 @@
 use Params::Validate qw(:all);
 use Scalar::Util qw/blessed/;
 
-with 'Net::Google::Code::Role::Fetchable', 'Net::Google::Code::Role::URL',
-  'Net::Google::Code::Role::HTMLTree',
-  'Net::Google::Code::Role::Authentication',
-  'Net::Google::Code::Role::DateTime';
+with 'Net::Google::Code::Role';
 
 has 'project' => (
     isa      => 'Str',

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm	Tue May 26 02:52:49 2009
@@ -1,10 +1,7 @@
 package Net::Google::Code::Issue;
 use Moose;
 use Params::Validate qw(:all);
-with 'Net::Google::Code::Role::Fetchable', 'Net::Google::Code::Role::URL',
-     'Net::Google::Code::Role::HTMLTree',
-     'Net::Google::Code::Role::Authentication',
-     'Net::Google::Code::Role::DateTime';
+with 'Net::Google::Code::Role';
 use Net::Google::Code::Issue::Comment;
 use Net::Google::Code::Issue::Attachment;
 use Scalar::Util qw/blessed/;

Added: Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm
==============================================================================
--- (empty file)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm	Tue May 26 02:52:49 2009
@@ -0,0 +1,36 @@
+package Net::Google::Code::Role;
+use Moose::Role;
+
+with 'Net::Google::Code::Role::Fetchable';
+with 'Net::Google::Code::Role::URL';
+with 'Net::Google::Code::Role::HTMLTree';
+with 'Net::Google::Code::Role::Authentication';
+with 'Net::Google::Code::Role::DateTime';
+with 'Net::Google::Code::Role::Pageable';
+
+no Moose::Role;
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Google::Code::Role - Role
+
+=head1 DESCRIPTION
+
+this is an aggregation role that includes all the roles.
+
+=head1 AUTHOR
+
+sunnavy  C<< <sunnavy at bestpractical.com> >>
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2008-2009 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Wiki.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Wiki.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Wiki.pm	Tue May 26 02:52:49 2009
@@ -2,10 +2,7 @@
 
 use Moose;
 use Params::Validate qw(:all);
-with 'Net::Google::Code::Role::Fetchable', 'Net::Google::Code::Role::URL',
-  'Net::Google::Code::Role::HTMLTree',
-  'Net::Google::Code::Role::Authentication',
-  'Net::Google::Code::Role::DateTime';
+with 'Net::Google::Code::Role';
 
 has 'project' => (
     isa      => 'Str',



More information about the Bps-public-commit mailing list