123456789101112131415161718192021222324 package Enbld::Deployed;use strict;use warnings;our %deployed;sub add { my ( $pkg, $config ) = @_; $deployed{$config->name} = $config; return $config->name;}sub is_deployed { my ( $pkg, $name ) = @_; return $deployed{$name} if ( $deployed{$name} ); return;}1;
package
Enbld::Deployed;
use
strict;
warnings;
our
%deployed
;
sub
add {
my
(
$pkg
,
$config
) =
@_
$deployed
{
->name} =
return
->name;
}
is_deployed {
$name
if
} );
1;