my $run_end = sub {
   my $self = shift;
   ...;
};

sub some_public_method {
   my $self = shift;
   ...;
   $self->$run_end();
}