lib/WebCoso/Step.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package WebCoso::Step; 
use strict;
use warnings;
use Module::Pluggable::Fast
    name => '_steps',
    search => [ 'WebCoso::Step' ],
    require => 1;
 
my @steps=_steps();
my %steps;
@steps{@steps}=();
 
sub is_step {
    my ($class,$step_name)=@_;
    return exists $steps{$step_name};
}
 
1;