package My::Object;
use strict;
use warnings;

our @EXPORT_OK = qw( private );
my $_private_string = "Hello";
my $_private_code = sub { return $_[0] . " World" };

sub public {
        return &$_private_code( $_private );
}
1;
__END__