This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 18de43d442ed4533451897ccfd32e6a0786017d9 Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Sat Jun 25 19:54:35 2011 -0700 s/App::Carton/Carton/g --- bin/carton | 4 ++-- lib/{App => }/Carton.pm | 10 +++++----- lib/{App => }/Carton/Tree.pm | 12 ++++++------ 3 files changed, 13 insertions(+), 13 deletions(-) diff --git a/bin/carton b/bin/carton index 151976a..c5baf79 100755 --- a/bin/carton +++ b/bin/carton @@ -1,9 +1,9 @@ #!perl use strict; use 5.008001; -use App::Carton; +use Carton; -App::Carton->new->run(@ARGV); +Carton->new->run(@ARGV); __END__ diff --git a/lib/App/Carton.pm b/lib/Carton.pm similarity index 97% rename from lib/App/Carton.pm rename to lib/Carton.pm index 251d389..b7abb9c 100644 --- a/lib/App/Carton.pm +++ b/lib/Carton.pm @@ -1,4 +1,4 @@ -package App::Carton; +package Carton; use strict; use 5.008_001; @@ -8,7 +8,7 @@ use Config; use Getopt::Long; use Term::ANSIColor qw(colored); -use App::Carton::Tree; +use Carton::Tree; our $Colors = { SUCCESS => 'green', @@ -204,7 +204,7 @@ sub build_tree { my $idx = $self->build_index($modules); my $pool = { %$modules }; # copy - my $tree = App::Carton::Tree->new; + my $tree = Carton::Tree->new; while (my $pick = (keys %$pool)[0]) { $self->_build_tree($pick, $tree, $tree, $pool, $idx); @@ -218,12 +218,12 @@ sub build_tree { sub _build_tree { my($self, $elem, $tree, $curr_node, $pool, $idx) = @_; - if (my $cached = App::Carton::TreeNode->cached($elem)) { + if (my $cached = Carton::TreeNode->cached($elem)) { $curr_node->add_child($cached); return; } - my $node = App::Carton::TreeNode->new($elem, $pool); + my $node = Carton::TreeNode->new($elem, $pool); $curr_node->add_child($node); for my $child ( $self->build_deps($node->metadata, $idx) ) { diff --git a/lib/App/Carton/Tree.pm b/lib/Carton/Tree.pm similarity index 90% rename from lib/App/Carton/Tree.pm rename to lib/Carton/Tree.pm index 03bac7b..dd3ae5d 100644 --- a/lib/App/Carton/Tree.pm +++ b/lib/Carton/Tree.pm @@ -1,4 +1,4 @@ -package App::Carton::TreeNode; +package Carton::TreeNode; use strict; use warnings; @@ -37,12 +37,12 @@ sub _walk_down { my @child = $self->children; for my $child ($self->children) { - local $App::Carton::Tree::Abort = 0; + local $Carton::Tree::Abort = 0; if ($pre_cb) { $pre_cb->($child, $depth, $self); } - unless ($App::Carton::Tree::Abort) { + unless ($Carton::Tree::Abort) { $child->_walk_down($pre_cb, $post_cb, $depth + 1); } @@ -53,7 +53,7 @@ sub _walk_down { } sub abort { - $App::Carton::Tree::Abort = 1; + $Carton::Tree::Abort = 1; } sub key { $_[0]->[0] } @@ -82,8 +82,8 @@ sub is { $self->key eq $node->key; } -package App::Carton::Tree; -our @ISA = qw(App::Carton::TreeNode); +package Carton::Tree; +our @ISA = qw(Carton::TreeNode); sub new { bless [0, {}, []], shift; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits