package TEST;                           # The Class

sub new { bless {}, $_[0] }

sub bla { warn "Bla called"       }


package main;

CHECK {
    warn B::Deparse->new()->coderef2text(\&tst);
}


use strict;
use warnings;
use Data::Dump qw/pp dd/;
use B::Deparse;

sub tst {
    my TEST $x;                         # Typing
    $x = TEST->new() ;
    $x->blo();                          # Typo
}

tst();

##</code><code>##

{
    use warnings;
    use strict;
    my TEST $x;
    $x = 'TEST'->new;
    $x->blo;
} at d:/exp/deparse_type.pl line 11.
Can't locate object method "blo" via package "TEST" at d:/exp/deparse_type.pl line 23.