type Dog my $a;
$a->bark;
$a->$trick; # compile time warning maybe
$a->perform_brain_surgery; # compile time error