$a = A->new ;
$b = $a->can(test) ;

print $b ; # ????