Lines Matching refs:is_ref
6 BEGIN { use_ok "Params::Classify", qw(is_ref ref_type); }
17 is(!!is_ref($scalar), !!$reftype);
18 is(!!&is_ref($scalar), !!$reftype);
20 is(!!is_ref($scalar, "SCALAR"), "SCALAR" eq $reftype);
21 is(!!&is_ref($scalar, "SCALAR"), "SCALAR" eq $reftype);
22 is(!!is_ref($scalar, "ARRAY"), "ARRAY" eq $reftype);
23 is(!!&is_ref($scalar, "ARRAY"), "ARRAY" eq $reftype);
24 is(!!is_ref($scalar, "HASH"), "HASH" eq $reftype);
25 is(!!&is_ref($scalar, "HASH"), "HASH" eq $reftype);
26 is(!!is_ref($scalar, "CODE"), "CODE" eq $reftype);
27 is(!!&is_ref($scalar, "CODE"), "CODE" eq $reftype);
28 is(!!is_ref($scalar, "FORMAT"), "FORMAT" eq $reftype);
29 is(!!&is_ref($scalar, "FORMAT"), "FORMAT" eq $reftype);
30 is(!!is_ref($scalar, "IO"), "IO" eq $reftype);
31 is(!!&is_ref($scalar, "IO"), "IO" eq $reftype);
33 is(!!is_ref($scalar, $type), $type eq $reftype);
34 is(!!&is_ref($scalar, $type), $type eq $reftype);