diff options
Diffstat (limited to 't/lib/WebCoso/Step/Step2.pm')
-rw-r--r-- | t/lib/WebCoso/Step/Step2.pm | 11 |
1 files changed, 6 insertions, 5 deletions
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; |