Searched refs:_looks_like_invocant (Results 1 – 1 of 1) sorted by relevance
10 sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } } subroutine51 shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];76 shift if _looks_like_invocant $_[0];90 shift if _looks_like_invocant $_[0];97 shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];105 shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];124 shift if defined $_[1] and $_[1] =~ PKG_PATTERN and _looks_like_invocant $_[0];133 shift if _looks_like_invocant $_[0];22521 shift if defined $_[1] and $_[1] =~ /^\w/ and _looks_like_invocant $_[0];