From 8b30558e59d43c78394c3c3204d30752ffb1d26c Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Sat, 28 Jan 2006 11:21:58 +0000
Subject: usato Class::Std anche negli step

git-svn-id: svn://luxion/repos/WebCoso/trunk@143 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/lib/WebCoso/Step/Step1.pm | 11 ++++++-----
 t/lib/WebCoso/Step/Step2.pm | 11 ++++++-----
 2 files changed, 12 insertions(+), 10 deletions(-)

(limited to 't/lib')

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;
-- 
cgit v1.2.3