Cross Reference: our.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
comp
/
our.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
our.t revision 1
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
require
'./
test.pl
'
;
1
N/A
}
1
N/A
1
N/A
print
"1..7\n"
;
1
N/A
1
N/A
{
1
N/A
package
TieAll
;
1
N/A
# tie, track, and report what calls are made
1
N/A
my
@
calls
;
1
N/A
sub
AUTOLOAD
{
1
N/A
for
(
$AUTOLOAD
=~ /
TieAll
::
(.*)
/)
{
1
N/A
if
(/
TIE
/)
{
return
bless
{} }
1
N/A
elsif
(/
calls
/)
{
return
join
','
,
splice
@
calls
}
1
N/A
else
{
1
N/A
push
@
calls
, $_;
1
N/A
# FETCHSIZE doesn't like undef
1
N/A
# if FIRSTKEY, see if NEXTKEY is also called
1
N/A
return
1
if
/
FETCHSIZE
|
FIRSTKEY
/;
1
N/A
return
;
1
N/A
}
1
N/A
}
1
N/A
}
1
N/A
}
1
N/A
1
N/A
tie
$x,
'TieAll'
;
1
N/A
tie
@x,
'TieAll'
;
1
N/A
tie
%x,
'TieAll'
;
1
N/A
1
N/A
{
our
$x;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our $x has no runtime effect'
)
;
1
N/A
1
N/A
{
our
($x)
;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our ($x) has no runtime effect'
)
;
1
N/A
1
N/A
{
our
%x;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our %x has no runtime effect'
)
;
1
N/A
1
N/A
{
our
(%x)
;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our (%x) has no runtime effect'
)
;
1
N/A
1
N/A
{
our
@x;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our @x has no runtime effect'
)
;
1
N/A
1
N/A
{
our
(@x)
;}
1
N/A
is
(
TieAll
->
calls
,
''
,
'our (@x) has no runtime effect'
)
;
1
N/A
1
N/A
1
N/A
$y =
1
;
1
N/A
{
1
N/A
my
$y =
2
;
1
N/A
{
1
N/A
our
$y = $y;
1
N/A
is
($y,
2
,
'our shouldnt be visible until introduced'
)
1
N/A
}
1
N/A
}