sub function_name {
    my $self = UNIVERSAL::isa( $_[0], __PACKAGE__ )
        ? shift : __PACKAGE__;
    ...
}