usato Class::Std anche negli step

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

2 files changed, 12 insertions, 10 deletions

diff --git a/t/lib/WebCoso/Step/Step1.pm b/t/lib/WebCoso/Step/Step1.pm
index 9b18d16..c9f2c96 100644
--- a/t/lib/WebCoso/Step/Step1.pm
+++ b/t/lib/WebCoso/Step/Step1.pm
@@ -1,14 +1,19 @@
 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 @{$self->{calls}},{
+    push @{$calls_of{ident $self}},{
         resource => $resource,
         out_res => $out,
         stage => $stage,
@@ -17,9 +22,5 @@ sub process {
     return $out;
 }
 
-sub get_calls {
-    my ($self)=@_;
-    return @{$self->{calls}};
 }
-
 1;
diff --git a/t/lib/WebCoso/Step/Step2.pm b/t/lib/WebCoso/Step/Step2.pm
index 0a45e3c..08a32c2 100644
--- a/t/lib/WebCoso/Step/Step2.pm
+++ b/t/lib/WebCoso/Step/Step2.pm
@@ -1,14 +1,19 @@
 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 @{$self->{calls}},{
+    push @{$calls_of{ident $self}},{
         resource => $resource,
         out_res => $out,
         stage => $stage,
@@ -17,9 +22,5 @@ sub process {
     return $out;
 }
 
-sub get_calls {
-    my ($self)=@_;
-    return @{$self->{calls}};
 }
-
 1;