Inheritance in Perl 6

p6-inheritance.p6

class Animalia                    {
  method full-name {
    self.^name
  }
}
class Arthropodia is Animalia     {
  method full-name {
    callsame() ~ ', ' ~ self.^name
  }
}
class Insecta is Arthropodia      {
  method full-name {
    callsame() ~ ', ' ~ self.^name
  }
}
class Lepidoptera is Insecta      {
  method full-name {
    callsame() ~ ', ' ~ self.^name
  }
}
class Nymphalidae is Lepidoptera  {
  method full-name {
    callsame() ~ ', ' ~ self.^name
  }
}
class Hamadryas is Nymphalidae    {
  method full-name {
    put "{self.^name} is {callsame}"
  }
}

my $h = Hamadryas.new;
$h.full-name;