aboutsummaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
Diffstat (limited to 't/lib')
-rw-r--r--t/lib/WebCoso/Pipeline/Test.pm29
-rw-r--r--t/lib/WebCoso/Step/Step1.pm26
-rw-r--r--t/lib/WebCoso/Step/Step2.pm26
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;