[carton] 17/472: s/App::Carton/Carton/g

[Lucas Kanashiro]

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 <miyagawa at 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