Advertisement
Guest User

Untitled

a guest
Oct 25th, 2015
211
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.39 KB | None | 0 0
  1. multi sub do-a-b-c (UsefulClass $cc) {
  2.     $cc.do-a;
  3.     $cc.do-b;
  4.     $cc.do-c;
  5. }
  6.  
  7. multi sub do-a-b-c (Int $a) { do-a-b-c UsefulClass.new($a) }
  8. multi sub do-a-b-c (Str $a) { do-a-b-c UsefulClass.new($a) }
  9.  
  10. multi sub do-a-c (UsefulClass $cc) {
  11.     $cc.do-a;
  12.     $cc.do-c;
  13. }
  14.  
  15. multi sub do-a-c (Int $a) { do-a-c UsefulClass.new($a) }
  16. multi sub do-a-c (Str $a) { do-a-c UsefulClass.new($a) }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement