File Coverage

blib/lib/TableDataRole/Source/CSVInDATA.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package TableDataRole::Source::CSVInDATA;

use 5.010001;
use strict;
use warnings;

use Role::Tiny;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-05-14'; # DATE
our $DIST = 'TableDataRoles-Standard'; # DIST
our $VERSION = '0.025'; # VERSION

with 'TableDataRole::Spec::Basic';
with 'TableDataRole::Source::CSVInFile';

around new => sub {
    my $orig = shift;
    my ($class, %args) = @_;
    die "Unknown argument(s): ". join(", ", sort keys %args)
        if keys %args;

    no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict
    my $fh = \*{"$class\::DATA"};

    if (defined ${"$class\::_TableData_fhpos_data_begin_cache"}) {
        seek $fh, ${"$class\::_TableData_fhpos_data_begin_cache"}, 0;
    } else {
        ${"$class\::_TableData_fhpos_data_begin_cache"} = tell $fh;
    }

    my $obj = $orig->(@_, filehandle => $fh);
};

1;
# ABSTRACT: Role to access table data from CSV in DATA section

__END__