Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.6.1
/
distrib
/
t
/
lib
/
tie-push.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
tie-push.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN
{
chdir
't'
if
-d
't'
;
@
INC
=
'.'
;
push
@
INC
,
'../lib'
;
}
{
package
Basic
;
use
Tie
::
Array
;
@
ISA
=
qw
(
Tie
::
Array
)
;
sub
TIEARRAY
{
return
bless
[],
shift
}
sub
FETCH
{ $_[
0
]->[$_[
1
]] }
sub
STORE
{ $_[
0
]->[$_[
1
]] = $_[
2
] }
sub
FETCHSIZE
{
scalar
(@{$_[
0
]})
}
sub
STORESIZE
{ $#{$_[
0
]} = $_[
1
]-
1
}
}
tie
@x,
Basic
;
tie
@
get
,
Basic
;
tie
@
got
,
Basic
;
tie
@
tests
,
Basic
;
require
"
op
/
push.t
"