package MyPackage;

use strict;
use warnings;

use Carp qw(confess);

sub new {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub abstract_method {
    my ($self) = @_;

    my ($method) = ( caller(0) )[3];
    confess "${method} should be overloaded.";
}

package main;

my $p = MyPackage->new();
$p->abstract_method();