package MyParent;

sub identify {
    return $_[0]->name;
};

sub name {
    return 'MyParent'; # or alternatively,
    return ref $_[0] || $_[0]
};

package Child;
use parent -norequire => 'MyParent';

sub name {
    return 'Child'; # or alternatively,
    return ref $_[0] || $_[0]
};