use strict;
use warnings;
use Test::More;
use t::lib::MyExceptions;
eval {
MyException1->throw;
};
is $@->message, 'MyException1';
like $@, qr/MyException1 from main/;
eval {
MyException2->throw;
};
is $@->message, 'MyException2';
like $@, qr/MyException2 from main/;
eval {
MyException3->throw('');
};
is $@->message, 'MyException3';
like $@, qr/MyException3 from main/;
eval {
MyException4->throw(0);
};
is $@->message, '0';
like $@, qr/0 from main/;
done_testing;