Guest User

Untitled

a guest
Oct 16th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. ┌─[tadzik@yavin4]─[~]
  2. └─[%]─> cat Foo.pm
  3. class Foo {
  4. method bar {
  5. say "hello, I am Foo";
  6. die "oh noes";
  7. }
  8. }
  9. ┌─[tadzik@yavin4]─[~]
  10. └─[%]─> cat dynload.pl
  11. use lib '.';
  12. require 'Foo';
  13.  
  14. try {
  15. ::('Foo').bar;
  16.  
  17. CATCH {
  18. say "can has exception {$_.perl}"
  19. }
  20. }
  21. ┌─[tadzik@yavin4]─[~]
  22. └─[%]─> perl6 dynload.pl
  23. hello, I am Foo
  24. can has exception X::AdHoc.new(payload => "oh noes")
  25. oh noes
  26. in method bar at ./Foo.pm:4
  27. in block <anon> at dynload.pl:7
Add Comment
Please, Sign In to add comment