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

package WebCoso::Step::Step1; 
use base 'WebCoso::Step::Base';
use strict;
use warnings;
 
sub process {
    my ($self,$resource,$stage)=@_;
 
    my $out='stuff';
 
    push @{$self->{calls}},{
        resource => $resource,
        out_res => $out,
        stage => $stage,
    };
 
    return $out;
}
 
sub get_calls {
    my ($self)=@_;
    return @{$self->{calls}};
}
 
1;