RosettaCodeData/Task/Polymorphism/Perl-6/polymorphism-2.pl6

multi print (Point $p) { $p.perl.print }
multi print (Circle $c) { $c.perl.print }