From fce73c4f1cb1c3ebed4551e43108f3506bb66f51 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 17 Dec 2006 12:08:23 +0000 Subject: pulizia: si ricomincia (di nuovo...) git-svn-id: svn://luxion/repos/WebCoso/trunk@234 fcb26f47-9200-0410-b104-b98ab5b095f3 --- t/lib/WebCoso/Pipeline/Test.pm | 29 ----------------------------- t/lib/WebCoso/Step/Step1.pm | 26 -------------------------- t/lib/WebCoso/Step/Step2.pm | 26 -------------------------- 3 files changed, 81 deletions(-) delete mode 100644 t/lib/WebCoso/Pipeline/Test.pm delete mode 100644 t/lib/WebCoso/Step/Step1.pm delete mode 100644 t/lib/WebCoso/Step/Step2.pm (limited to 't/lib') diff --git a/t/lib/WebCoso/Pipeline/Test.pm b/t/lib/WebCoso/Pipeline/Test.pm deleted file mode 100644 index 8c339ff..0000000 --- a/t/lib/WebCoso/Pipeline/Test.pm +++ /dev/null @@ -1,29 +0,0 @@ -package WebCoso::Pipeline::Test; -use strict; -use warnings; -use base 'WebCoso::Pipeline::Base'; - -__PACKAGE__->set_steps( - Step1 => {p1 => 1}, - Step2 => {p2 => 2} -); - -my @calls; - -sub process { - my ($class,$resource,$stage)=@_; - - my $call={ resource => $resource, stage => $stage }; - - my $ret=$class->SUPER::process($resource,$stage); - - push @calls, $call; - - return $ret; -} - -sub get_calls { - return @calls; -} - -1; diff --git a/t/lib/WebCoso/Step/Step1.pm b/t/lib/WebCoso/Step/Step1.pm deleted file mode 100644 index c9f2c96..0000000 --- a/t/lib/WebCoso/Step/Step1.pm +++ /dev/null @@ -1,26 +0,0 @@ -package WebCoso::Step::Step1; -use base 'WebCoso::Step::Base'; -use Class::Std; -use strict; -use warnings; - -{ -my %calls_of :ATTR(:default<[]> :get); -my %p1_of :ATTR(:init_arg); - -sub process { - my ($self,$resource,$stage)=@_; - - my $out='stuff'; - - push @{$calls_of{ident $self}},{ - resource => $resource, - out_res => $out, - stage => $stage, - }; - - return $out; -} - -} -1; diff --git a/t/lib/WebCoso/Step/Step2.pm b/t/lib/WebCoso/Step/Step2.pm deleted file mode 100644 index 08a32c2..0000000 --- a/t/lib/WebCoso/Step/Step2.pm +++ /dev/null @@ -1,26 +0,0 @@ -package WebCoso::Step::Step2; -use base 'WebCoso::Step::Base'; -use Class::Std; -use strict; -use warnings; - -{ -my %calls_of :ATTR(:default<[]> :get); -my %p2_of :ATTR(:init_arg); - -sub process { - my ($self,$resource,$stage)=@_; - - my $out='stuff'; - - push @{$calls_of{ident $self}},{ - resource => $resource, - out_res => $out, - stage => $stage, - }; - - return $out; -} - -} -1; -- cgit v1.2.3