From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
|
sub new {
my $class = shift ;
my $self = {
required_parameters_count => 1
};
return bless $self , $class ;
}
sub process {
my ( $self , $command ) = @_ ;
try {
return $command ->{payload}[0];
}
catch ( $e ) {
return Exception->new( $e );
}
}
no Moose;
1;
|