File Coverage

blib/lib/TableDataRole/Util/CSV.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	32	33	96.9

package TableDataRole::Util::CSV;

use 5.010001;
use strict;
use warnings;

use Role::Tiny;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-02-24'; # DATE
our $DIST = 'TableDataRoles-Standard'; # DIST
our $VERSION = '0.015'; # VERSION

requires 'get_column_names';
requires 'has_next_item';
requires 'get_next_item';
requires 'reset_iterator';

sub as_csv {
    require Text::CSV_XS;
    my $self = shift;

    $self->{csv_parser} //= Text::CSV_XS->new({binary=>1});
    my $csv = $self->{csv_parser};

    $self->reset_iterator;

    my $res = "";
    $csv->combine($self->get_column_names);
    $res .= $csv->string . "\n";
    while ($self->has_next_item) {
        my $row = $self->get_next_item;
        $csv->combine(@$row);
        $res .= $csv->string . "\n";
    }
    $res;
}

1;
# ABSTRACT: Provide as_csv() and other CSV-related methods

__END__