package Parent;

sub protected_sub {
    my $me = shift;
    die unless $me->isa(__PACKAGE__);
    print $me, " -> Parent::protected_sub$/";
}