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();