[carton] 17/472: s/App::Carton/Carton/g
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:27 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list