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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Jan 11 19:51:22 2009
New Revision: 17701

Added:
   Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm
      - copied, changed from r17690, /Net-Google-Code/trunk/lib/Net/Google/Code/Base.pm
Removed:
   Net-Google-Code/trunk/lib/Net/Google/Code/Base.pm
Modified:
   Net-Google-Code/trunk/   (props changed)
   Net-Google-Code/trunk/lib/Net/Google/Code/Home.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/IssueAttachment.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/IssueComment.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/Wiki.pm
   Net-Google-Code/trunk/lib/Net/Google/Code/WikiEntry.pm

Log:
 r18713 at sunnavys-mb:  sunnavy | 2009-01-12 08:49:04 +0800
 make base a role


Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Home.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/Home.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Home.pm	Sun Jan 11 19:51:22 2009
@@ -5,7 +5,7 @@
 our $VERSION = '0.02';
 our $AUTHORITY = 'cpan:FAYLAND';
 
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 
 
 has '__html' => (

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	Sun Jan 11 19:51:22 2009
@@ -1,7 +1,7 @@
 package Net::Google::Code::Issue;
 use Moose;
 use Params::Validate qw(:all);
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 use Net::Google::Code::IssueComment;
 
 has state => (

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/IssueAttachment.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/IssueAttachment.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/IssueAttachment.pm	Sun Jan 11 19:51:22 2009
@@ -1,7 +1,6 @@
 package Net::Google::Code::IssueAttachment;
 use Moose;
-extends 'Net::Google::Code::Base';
-with 'Net::Google::Code::Role::RemoteFile';
+with 'Net::Google::Code::Role', 'Net::Google::Code::Role::RemoteFile';
 
 =head2 parse
 there're 2 trs that represent an attachment like the following:

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/IssueComment.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/IssueComment.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/IssueComment.pm	Sun Jan 11 19:51:22 2009
@@ -1,6 +1,6 @@
 package Net::Google::Code::IssueComment;
 use Moose;
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 
 has updates => ( isa => 'HashRef', is => 'rw', default => sub { {} } );
 has author  => ( isa => 'Str',     is => 'rw' );

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm	Sun Jan 11 19:51:22 2009
@@ -2,7 +2,7 @@
 use Moose;
 use Params::Validate qw(:all);
 use Moose::Util::TypeConstraints;
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 
 our %CAN = (
     'all'    => 1,

Copied: Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm (from r17690, /Net-Google-Code/trunk/lib/Net/Google/Code/Base.pm)
==============================================================================
--- /Net-Google-Code/trunk/lib/Net/Google/Code/Base.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Role.pm	Sun Jan 11 19:51:22 2009
@@ -1,6 +1,8 @@
-package Net::Google::Code::Base;
-use Moose;
-with 'Net::Google::Code::Role::URL';
+package Net::Google::Code::Role;
+use Moose::Role;
+use Params::Validate;
+use Net::Google::Code::Mechanize;
+
 with 'Net::Google::Code::Role::Connectable';
 
 has 'project' => (
@@ -18,8 +20,9 @@
 
 sub project { return shift->_project }
 
-no Moose;
-__PACKAGE__->meta->make_immutable;
+
+
+no Moose::Role;
 
 1;
 
@@ -27,7 +30,7 @@
 
 =head1 NAME
 
-Net::Google::Code::Connection - 
+Net::Google::Code::Role - 
 
 
 =head1 DESCRIPTION

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	Sun Jan 11 19:51:22 2009
@@ -4,7 +4,7 @@
 use Params::Validate qw(:all);
 
 use Net::Google::Code::WikiEntry;
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 
 our $VERSION = '0.02';
 our $AUTHORITY = 'cpan:FAYLAND';

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/WikiEntry.pm
==============================================================================
--- Net-Google-Code/trunk/lib/Net/Google/Code/WikiEntry.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/WikiEntry.pm	Sun Jan 11 19:51:22 2009
@@ -2,7 +2,7 @@
 
 use Moose;
 use Params::Validate qw(:all);
-extends 'Net::Google::Code::Base';
+with 'Net::Google::Code::Role';
 
 our $VERSION = '0.02';
 our $AUTHORITY = 'cpan:FAYLAND';