Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Foo;
- use Mouse ();
- use Mouse::Exporter;
- use Try::Tiny;
- my @export = qw[
- Mouse
- Try::Tiny
- ];
- Mouse::Exporter->setup_import_methods( also => \@export );
- 1;
- package Bar;
- use Foo;
- use Try::Tiny;
- sub t {
- my ($self,$d) = @_;
- my $v = try {
- die "testing" if $d;
- 'no';
- } catch {
- $_;
- };
- return $v;
- }
- 1;
- perl -Mfeature=:5.12 -MBar -e say Bar->new->t;
- no
Add Comment
Please, Sign In to add comment