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

sub isa
{
    my $self = shift;
    ${ $self }->isa( @_ );
}
[download]