my $private_method = sub {
    my ($self) = @_;
    . . . 
};

$self->$private_method();