pulizia: si ricomincia (di nuovo...)

git-svn-id: svn://luxion/repos/WebCoso/trunk@234 fcb26f47-9200-0410-b104-b98ab5b095f3

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;