Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ┌─[tadzik@yavin4]─[~]
- └─[%]─> cat Foo.pm
- class Foo {
- method bar {
- say "hello, I am Foo";
- die "oh noes";
- }
- }
- ┌─[tadzik@yavin4]─[~]
- └─[%]─> cat dynload.pl
- use lib '.';
- require 'Foo';
- try {
- ::('Foo').bar;
- CATCH {
- say "can has exception {$_.perl}"
- }
- }
- ┌─[tadzik@yavin4]─[~]
- └─[%]─> perl6 dynload.pl
- hello, I am Foo
- can has exception X::AdHoc.new(payload => "oh noes")
- oh noes
- in method bar at ./Foo.pm:4
- in block <anon> at dynload.pl:7
Add Comment
Please, Sign In to add comment