t/lib/WebCoso/Step/Step1.pm


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::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 @{$calls_of{ident $self}},{
        resource => $resource,
        out_res => $out,
        stage => $stage,
    };
 
    return $out;
}
 
}
1;