The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ABELTJE / Dancer-Plugin-RPC-1.11 / t / lib / MyTest / Exception.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
package MyTest::Exception;
use Moo;
use Types::Standard qw( Str );
use overload '""' => 'as_string';
has error => (is => 'ro', isa => Str);
sub as_string { $_[0]->error }
use namespace::autoclean;
1;