Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Attribute
/
Handlers
/
demo
/
demo_cycle.pl
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
demo_cycle.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
package
Selfish
;
sub
TIESCALAR
{
use
Data
::
Dumper
'Dumper'
;
print
Dumper
[ \@_ ];
bless
[ @_[
1
..$
#_] ], $_[0];
}
sub
FETCH
{
use
Data
::
Dumper
'Dumper'
;
Dumper
[ @{$_[
0
]} ];
}
package
main
;
use
Attribute
::
Handlers
autotieref
=> {
Selfish
=>
Selfish
};
my
$
next
:
Selfish
(
"me"
);
print
"$next\n"
;
my
$
last
:
Selfish
(
"you"
,
"them"
,
"who?"
);
print
"$last\n"
;
my
$
other
:
Selfish
([
"you"
,
"them"
,
"who?"
]);
print
"$other\n"
;