t/lib/WebCoso/Pipeline/Test.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
27
28
29

package WebCoso::Pipeline::Test; 
use strict;
use warnings;
use base 'WebCoso::Pipeline::Base';
 
__PACKAGE__->set_steps(
    Step1 => {p1 => 1},
    Step2 => {p2 => 2}
);
 
my @calls;
 
sub process {
    my ($class,$resource,$stage)=@_;
 
    my $call={ resource => $resource, stage => $stage };
 
    my $ret=$class->SUPER::process($resource,$stage);
 
    push @calls, $call;
 
    return $ret;
}
 
sub get_calls {
    return @calls;
}
 
1;