File Coverage

blib/lib/Tie/Hash/HashData.pm

Criterion	Covered	Total	%
statement	6	38	15.7
branch	0	8	0.0
condition			n/a
subroutine	2	12	16.6
pod			n/a
total	8	58	13.7

package Tie::Hash::HashData;

use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-22'; # DATE
our $DIST = 'Tie-Hash-HashData'; # DIST
our $VERSION = '0.001'; # VERSION

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

    my $class = shift;
    my ($hashdata) = @_;

    die "Please specify a HashData module to instantiate (string or 2-element array)" unless $hashdata;
    my $hdobj = Module::Load::Util::instantiate_class_with_optional_args({ns_prefix=>"HashData"}, $hashdata);

    return bless {
        _hdobj => $hdobj,
    }, $class;
}

sub FETCH {
    my ($self, $key) = @_;
    if ($self->{_hdobj}->has_item_at_key($key)) {
        $self->{_hdobj}->get_item_at_key($key);
    } else {
        undef;
    }
}

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

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

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

sub EXISTS {
    my ($self, $key) = @_;
    $self->{_hdobj}->has_item_at_key($key);
}

sub FIRSTKEY {
    my ($self) = @_;
    $self->{_hdobj}->reset_iterator;
    if ($self->{_hdobj}->has_next_item) {
        my $res = $self->{_hdobj}->get_next_item;
        $res->[0];
    } else {
        undef;
    }
}

sub NEXTKEY {
    my ($self, $lastkey) = @_;
    if ($self->{_hdobj}->has_next_item) {
        my $res = $self->{_hdobj}->get_next_item;
        $res->[0];
    } else {
        undef;
    }
}

sub SCALAR {
    my ($self) = @_;
    $self->{_hdobj}->get_item_count;
}

sub UNTIE {
    my ($self) = @_;
    #die "Not supported";
}

# DESTROY

1;
# ABSTRACT: Access HashData object as a tied hash

__END__