if ( ref $me and $me->can('can') ){ .....