$a = A->new ;
$b = $a->can('test') ;
A->$b() if defined $b ;
$b = undef ; # de-ref