Lines Matching refs:ref
93 ok 4, ref $y eq 'ARRAY';
96 ok 6, ref $y->[0] eq 'SHORT_NAME';
97 ok 7, ref $y->[1] eq 'SHORT_NAME_WITH_HOOK';
98 ok 8, ref $y->[2] eq $name;
99 ok 9, ref $y->[3] eq "${name}_WITH_HOOK";
103 do { $good = 0; last } unless ref $y->[4*$i] eq 'SHORT_NAME';
104 do { $good = 0; last } unless ref $y->[4*$i+1] eq 'SHORT_NAME_WITH_HOOK';
105 do { $good = 0; last } unless ref $y->[4*$i+2] eq $name;
106 do { $good = 0; last } unless ref $y->[4*$i+3] eq "${name}_WITH_HOOK";
114 ok 11, ref $y eq 'Foobar';
137 die "'$x' did not give a reference" unless ref $expect;
189 ok ++$test, ref $t eq 'HAS_HOOK';
200 # ok ++$test, ref $t eq 'HAS_HOOK';