diff options
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/WebCoso/Pipeline/Test.pm | 29 | ||||
-rw-r--r-- | t/lib/WebCoso/Step/Step1.pm | 26 | ||||
-rw-r--r-- | t/lib/WebCoso/Step/Step2.pm | 26 |
3 files changed, 0 insertions, 81 deletions
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<calls>); -my %p1_of :ATTR(:init_arg<p1>); - -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<calls>); -my %p2_of :ATTR(:init_arg<p2>); - -sub process { - my ($self,$resource,$stage)=@_; - - my $out='stuff'; - - push @{$calls_of{ident $self}},{ - resource => $resource, - out_res => $out, - stage => $stage, - }; - - return $out; -} - -} -1; |