blob: 08a32c2929aff4e2ddc9b13907015cb4795e932b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
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;
|