package Frontier::NotReally;

sub new {
    my $class = shift;

    my %p = @_;
    return bless \%p, $class;
}

sub id {
    my $self = shift;
    return "$self";
}

sub call {
    my $self = shift;
    return $self->{sub}->( @_ );
}

package main;

my $id;
$id = Frontier::NotReally->new( sub => sub { print "insub: ", $id->id(), "\n" } );
print "outsub: ", $id->id(), "\n";
$id->call( 'sub' );
__END__
outsub: Frontier::NotReally=HASH(0x6f1940)
insub: Frontier::NotReally=HASH(0x6f1940)