package Foo::Bar; use strict; use warnings; my @aoa; my $cnt; sub new { bless \(my $obj_index = $cnt++) } sub DESTROY { undef $aoa[${$_[0]}] } use overload '@{}' => sub { $aoa[${$_[0]}] ||= [] }, fallback => 1; 1;
In reply to Re: tie'ing a scalar as an array? (use overload, not tie)
by ysth
in thread tie'ing a scalar as an array?
by rvosa
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |