1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
use 5.008003;use MooseX::Declare; class Thread::Task::Exception { use MooseX::Types::Moose qw(Str HashRef); has 'msg' => ( isa => Str, is => 'ro', required => 0, predicate => 'has_msg', ); has 'params' => ( isa => HashRef, is => 'ro', required => 0, predicate => 'has_params', );} 1;