Object-Array
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Object/Array.pm view on Meta::CPAN
use overload (
q(@{}) => 'ref',
fallback => 1,
);
sub new {
my $class = shift;
my $real = shift || [];
my $self = bless \$real => $class;
$real{$self->_addr} = $real;
return $self;
}
sub isa {
my ($class, $type) = @_;
return 1 if $type eq 'ARRAY';
return $class->SUPER::isa($type);
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.044 second using v1.00-cache-2.02-grep-82fe00e-cpan-1925d2aa809 )