Searched refs:IS_AUTHOBJ (Results 1 – 5 of 5) sorted by relevance
25 ok( IS_AUTHOBJ->( $f_auth ), " IS_AUTHOBJ recognizes it" );
50 ok( IS_AUTHOBJ->(auth => $mod->author), "Author object found" );52 ok( IS_AUTHOBJ->( author => $auths[0] )," ISA author object" );54 ok( !IS_AUTHOBJ->( author => $none ), " Bogus author detected" );
52 ok( IS_AUTHOBJ->($_), " Author isa author object" );
76 use constant IS_AUTHOBJ => sub { UNIVERSAL::isa($_[-1], constant
75 allow => IS_AUTHOBJ }, # module author