{
    my $private_method = { foo => sub { stuff },
                           bar => sub { mostuff },
                          };
    sub public_method {
        my @args = @_;
        $private_method->{foo}(@args);
        $private_method->{bar}(@args);
    }
}