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

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