classnames.p6

#!/usr/bin/env perl6

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

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