{
    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.