File Coverage

blib/lib/TablesRole/Util/Basic.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	2	2	100.0
total	20	20	100.0

package TablesRole::Util::Basic;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-11-04'; # DATE
our $DIST = 'TablesRoles-Standard'; # DIST
our $VERSION = '0.004'; # VERSION

# enabled by Role::Tiny
#use strict;
#use warnings;

use Role::Tiny;

requires 'get_row_arrayref';
requires 'get_row_hashref';

sub as_aoa {
    my $self = shift;
    $self->reset_iterator;
    my @aoa;
    while (my $row = $self->get_row_arrayref) {
        push @aoa, $row;
    }
    \@aoa;
}

sub as_aoh {
    my $self = shift;
    $self->reset_iterator;
    my @aoh;
    while (my $row = $self->get_row_hashref) {
        push @aoh, $row;
    }
    \@aoh;
}

1;
# ABSTRACT: Provide utility methods

__END__