[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