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