Select Code to Download

sub function_name {
    # for a function call
    my $self = __PACKAGE__;
...
    $self = shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
    ...
}

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