package Foo::Bar;
# ...
my $selfcheck = sub {
    my $self = shift;
    die ...
};

sub method {
    my $self = shift;
    $selfcheck->( $self );

    # ...
}