blob: b45d431f9901714541b4165579e336312be647d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
package WebCoso::Pipeline; use strict; use warnings; use Module::Pluggable::Fast name => '_pipelines', search => [ 'WebCoso::Pipeline' ], require => 1; my @pipelines=_pipelines(); my %pipelines; @pipelines{@pipelines}=(); sub is_pipeline { my ($class,$pipeline_name)=@_; return exists $pipelines{$pipeline_name}; } 1;
|