[Bps-public-commit] r19615 - in Net-Google-Code/trunk: lib/Net/Google/Code lib/Net/Google/Code/Issue
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Mon May 11 04:42:17 EDT 2009
Author: sunnavy
Date: Mon May 11 04:42:17 2009
New Revision: 19615
Added:
Net-Google-Code/trunk/lib/Net/Google/Code/Issue/
Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Attachment.pm
- copied, changed from r19614, /Net-Google-Code/trunk/lib/Net/Google/Code/IssueAttachment.pm
Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Comment.pm
- copied, changed from r17701, /Net-Google-Code/trunk/lib/Net/Google/Code/IssueComment.pm
Net-Google-Code/trunk/lib/Net/Google/Code/Issue/PropChange.pm
- copied, changed from r17601, /Net-Google-Code/trunk/lib/Net/Google/Code/IssuePropChange.pm
Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm
- copied, changed from r19613, /Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm
Removed:
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/IssuePropChange.pm
Net-Google-Code/trunk/lib/Net/Google/Code/IssueSearch.pm
Modified:
Net-Google-Code/trunk/lib/Net/Google/Code/Issue.pm
Net-Google-Code/trunk/t/03.comment.t
Net-Google-Code/trunk/t/04.attachment.t
Log:
class with name ::Issue\w+ => ::Issue::\w+
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 Mon May 11 04:42:17 2009
@@ -2,7 +2,7 @@
use Moose;
use Params::Validate qw(:all);
with 'Net::Google::Code::Role';
-use Net::Google::Code::IssueComment;
+use Net::Google::Code::Issue::Comment;
has state => (
isa => 'HashRef',
@@ -71,12 +71,12 @@
my $attachments = $description->look_down( class => 'attachments' );
if ($attachments) {
my @items = $attachments->find_by_tag_name('tr');
- require Net::Google::Code::IssueAttachment;
+ require Net::Google::Code::Issue::Attachment;
while ( scalar @items ) {
my $tr1 = shift @items;
my $tr2 = shift @items;
my $a =
- Net::Google::Code::IssueAttachment->new(
+ Net::Google::Code::Issue::Attachment->new(
project => $self->project );
if ( $a->parse( $tr1, $tr2 ) ) {
@@ -132,7 +132,7 @@
pop @comments; # last one is for adding comment
for my $comment (@comments) {
my $object =
- Net::Google::Code::IssueComment->new( project => $self->project );
+ Net::Google::Code::Issue::Comment->new( project => $self->project );
$object->parse($comment);
push @{ $self->comments }, $object;
}
Copied: Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Attachment.pm (from r19614, /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/Issue/Attachment.pm Mon May 11 04:42:17 2009
@@ -1,4 +1,4 @@
-package Net::Google::Code::IssueAttachment;
+package Net::Google::Code::Issue::Attachment;
use Moose;
with 'Net::Google::Code::Role';
@@ -56,7 +56,7 @@
=head1 NAME
-Net::Google::Code::IssueAttachment
+Net::Google::Code::Issue::Attachment
=head1 DESCRIPTION
Copied: Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Comment.pm (from r17701, /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/Issue/Comment.pm Mon May 11 04:42:17 2009
@@ -1,4 +1,4 @@
-package Net::Google::Code::IssueComment;
+package Net::Google::Code::Issue::Comment;
use Moose;
with 'Net::Google::Code::Role';
@@ -8,7 +8,7 @@
has content => ( isa => 'Str', is => 'rw' );
has sequence => ( isa => 'Int', is => 'rw' );
has attachments => (
- isa => 'ArrayRef[Net::Google::Code::IssueAttachment]',
+ isa => 'ArrayRef[Net::Google::Code::Issue::Attachment]',
is => 'rw',
default => sub { [] },
);
@@ -127,12 +127,12 @@
my $attachments = $element->look_down( class => 'attachments' );
if ($attachments) {
my @items = $attachments->find_by_tag_name('tr');
- require Net::Google::Code::IssueAttachment;
+ require Net::Google::Code::Issue::Attachment;
while ( scalar @items ) {
my $tr1 = shift @items;
my $tr2 = shift @items;
my $a =
- Net::Google::Code::IssueAttachment->new(
+ Net::Google::Code::Issue::Attachment->new(
project => $self->project );
if ( $a->parse( $tr1, $tr2 ) ) {
@@ -152,7 +152,7 @@
=head1 NAME
-Net::Google::Code::IssueComment -
+Net::Google::Code::Issue::Comment -
=head1 DESCRIPTION
Copied: Net-Google-Code/trunk/lib/Net/Google/Code/Issue/PropChange.pm (from r17601, /Net-Google-Code/trunk/lib/Net/Google/Code/IssuePropChange.pm)
==============================================================================
--- /Net-Google-Code/trunk/lib/Net/Google/Code/IssuePropChange.pm (original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Issue/PropChange.pm Mon May 11 04:42:17 2009
@@ -1,4 +1,4 @@
-package Net::Google::Code::IssuePropChange;
+package Net::Google::Code::Issue::PropChange;
use Moose;
has property => ( isa => 'Str', is => 'rw' );
@@ -13,7 +13,7 @@
=head1 NAME
-Net::Google::Code::IssuePropChange -
+Net::Google::Code::Issue::PropChange -
=head1 DESCRIPTION
Copied: Net-Google-Code/trunk/lib/Net/Google/Code/Issue/Search.pm (from r19613, /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/Issue/Search.pm Mon May 11 04:42:17 2009
@@ -1,4 +1,4 @@
-package Net::Google::Code::IssueSearch;
+package Net::Google::Code::Issue::Search;
use Moose;
use Params::Validate qw(:all);
use Moose::Util::TypeConstraints;
@@ -123,7 +123,7 @@
=head1 NAME
-Net::Google::Code::IssueSearch -
+Net::Google::Code::Issue::Search -
=head1 DESCRIPTION
Modified: Net-Google-Code/trunk/t/03.comment.t
==============================================================================
--- Net-Google-Code/trunk/t/03.comment.t (original)
+++ Net-Google-Code/trunk/t/03.comment.t Mon May 11 04:42:17 2009
@@ -3,10 +3,10 @@
use Test::More tests => 9;
-use Net::Google::Code::IssueComment;
+use Net::Google::Code::Issue::Comment;
my $comment =
- Net::Google::Code::IssueComment->new( project => 'test' );
-isa_ok( $comment, 'Net::Google::Code::IssueComment', '$comment' );
+ Net::Google::Code::Issue::Comment->new( project => 'test' );
+isa_ok( $comment, 'Net::Google::Code::Issue::Comment', '$comment' );
my $content;
{
Modified: Net-Google-Code/trunk/t/04.attachment.t
==============================================================================
--- Net-Google-Code/trunk/t/04.attachment.t (original)
+++ Net-Google-Code/trunk/t/04.attachment.t Mon May 11 04:42:17 2009
@@ -3,9 +3,9 @@
use Test::More tests => 5;
-use Net::Google::Code::IssueAttachment;
-my $attachment = Net::Google::Code::IssueAttachment->new( project => 'test' );
-isa_ok( $attachment, 'Net::Google::Code::IssueAttachment', '$attachment' );
+use Net::Google::Code::Issue::Attachment;
+my $attachment = Net::Google::Code::Issue::Attachment->new( project => 'test' );
+isa_ok( $attachment, 'Net::Google::Code::Issue::Attachment', '$attachment' );
my $content;
More information about the Bps-public-commit
mailing list