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;