Lines Matching refs:tail

157  for my $tail ('inner', 'inner::', 'inner:::', 'inner::::') {
160       my $tail = shift;
161       @left::ISA = "outer::$tail";
162       @right::ISA = "clone::$tail";
163       bless [], "outer::$tail"; # autovivify the stash
167       print "ok 1", "\n" if left->isa("clone::$tail");
168       print "ok 2", "\n" if right->isa("outer::$tail");
169       print "ok 3", "\n" if right->isa("clone::$tail");
170       print "ok 4", "\n" if left->isa("outer::$tail");
173     { args => [$tail] },
175      ." ($tail)";
180       my $tail = shift;
181       @left::ISA = "outer::$tail";
182       @right::ISA = "clone::$tail";
186       bless [], "outer::$tail";
188       print "ok 1", "\n" if left->isa("clone::$tail");
189       print "ok 2", "\n" if right->isa("outer::$tail");
190       print "ok 3", "\n" if right->isa("clone::$tail");
191       print "ok 4", "\n" if left->isa("outer::$tail");
194     { args => [$tail] },
196      . " ($tail)";