use strict;
use warnings;

package Foo;

sub new {
    my $class = shift;
    
    return bless {}, $class;
}

sub bar {
    my $self = shift;
    
    $self->baz;
    
    return 1;
}

sub baz {
    die;
}

1;