From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
|
our %handler_dict ;
sub add_handler_to_dict {
my $command_type = shift ;
my $handler = shift ;
$handler_dict { $command_type } = $handler ;
}
sub get_handler {
my $command_type = shift ;
my $handler = $handler_dict { $command_type };
return $handler ;
}
no Moose;
1;
|