13 # tie, track, and report what calls are made
16 for ($AUTOLOAD =~ /TieAll::(.*)/) {
17 if (/TIE/) { return bless {} }
18 elsif (/calls/) { return join ',', splice @calls }
21 # FETCHSIZE doesn't like undef
22 # if FIRSTKEY, see if NEXTKEY is also called
23 return 1 if /FETCHSIZE|FIRSTKEY/;
35 is(TieAll->calls, '', 'our $x has no runtime effect');
38 is(TieAll->calls, '', 'our ($x) has no runtime effect');
41 is(TieAll->calls, '', 'our %x has no runtime effect');
44 is(TieAll->calls, '', 'our (%x) has no runtime effect');
47 is(TieAll->calls, '', 'our @x has no runtime effect');
50 is(TieAll->calls, '', 'our (@x) has no runtime effect');
58 is($y, 2, 'our shouldnt be visible until introduced')