File Coverage

blib/lib/TableData/Object.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	8	10	80.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	38	42	90.4

package TableData::Object;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-01-10'; # DATE
our $DIST = 'TableData-Object'; # DIST
our $VERSION = '0.113'; # VERSION

use 5.010001;
use strict;
use warnings;

use Data::Check::Structure qw(is_aos is_aoaos is_aohos);

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(table);

sub table { __PACKAGE__->new(@_) }

sub new {
    my ($class, $data, $spec) = @_;
    if (!defined($data)) {
        die "Please specify table data";
    } elsif (ref($data) eq 'HASH') {
        require TableData::Object::hash;
        TableData::Object::hash->new($data);
    } elsif (is_aoaos($data, {max=>10})) {
        require TableData::Object::aoaos;
        TableData::Object::aoaos->new($data, $spec);
    } elsif (is_aohos($data, {max=>10})) {
        require TableData::Object::aohos;
        TableData::Object::aohos->new($data, $spec);
    } elsif (ref($data) eq 'ARRAY') {
        require TableData::Object::aos;
        TableData::Object::aos->new($data);
    } else {
        die "Unknown table data form, please supply array of scalar, ".
            "array of array-of-scalar, or array of hash-of-scalar";
    }
}

1;
# ABSTRACT: Manipulate data structure via table object

__END__