File Coverage

blib/lib/Tie/Array/ArrayData.pm

Criterion	Covered	Total	%
statement	8	32	25.0
branch	0	2	0.0
condition			n/a
subroutine	3	13	23.0
pod			n/a
total	11	47	23.4

package Tie::Array::ArrayData;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-15'; # DATE
our $DIST = 'Tie-Array-ArrayData'; # DIST
our $VERSION = '0.001'; # VERSION

sub TIEARRAY {
    require Module::Load::Util;

    my $class = shift;
    my $arraydata = @_;

    die "Please specify an ArrayData module to instantiate (string or 2-element array)" unless $arraydata;
    my $adobj = Module::Load::Util::instantiate_class_with_optional_args({ns_prefix=>"ArrayData"}, $arraydata);

    return bless {
        _adobj => $adobj,
    }, $class;
}

sub FETCH {
    my ($self, $index) = @_;
    $self->{_adobj}->get_item_at_pos($index);
}

sub STORE {
    my ($self, $index, $value) = @_;
    die "Not supported";
}

sub FETCHSIZE {
    my $self = shift;
    $self->{_adobj}->get_item_count;
}

sub STORESIZE {
    my ($self, $count) = @_;
    die "Not supported";
}

# sub EXTEND this, count

# sub EXISTS this, key

# sub DELETE this, key

sub PUSH {
    my $self = shift;
    die "Not supported";
}

sub POP {
    my $self = shift;
    die "Not supported";
}

sub UNSHIFT {
    my $self = shift;
    die "Not supported";
}

sub SHIFT {
    my $self = shift;
    die "Not supported";
}

sub SPLICE {
    my $self   = shift;
    die "Not supported";
}

1;
# ABSTRACT: Access ArrayData object as a tied array

__END__