Advertisement
Guest User

Untitled

a guest
Oct 25th, 2015
190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.49 KB | None | 0 0
  1. class UsefulClass {
  2.     has $.a;
  3.     has $.b;
  4.     has $.c;
  5.  
  6.     method do-a { ... }
  7.     method do-b { ... }
  8.     method do-c { ... }
  9.  
  10.     # Str and Int can be converted to UsefulClass.
  11.     multi method new (Str $s) { ... }
  12.     multi method new (Int $s) { ... }
  13. }
  14.  
  15. sub do-a-b-c (UsefulClass $cc) {
  16.     $cc.do-a;
  17.     $cc.do-b;
  18.     $cc.do-c;
  19. }
  20.  
  21. # I want to be able to write (1) instead of (2):
  22. do-a-b-c "string";                   # (1)
  23. do-a-b-c UsefulClass.new("string");  # (2)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement