package WebCoso::Step::Step2; use base 'WebCoso::Step::Base'; use Class::Std; use strict; use warnings; { my %calls_of :ATTR(:default<[]> :get); my %p2_of :ATTR(:init_arg); sub process { my ($self,$resource,$stage)=@_; my $out='stuff'; push @{$calls_of{ident $self}},{ resource => $resource, out_res => $out, stage => $stage, }; return $out; } } 1;