view release on metacpan or  search on metacpan

t/Catmandu-Exporter-Text.t  view on Meta::CPAN

    my $exporter = Catmandu::Exporter::Text->new(
        file      => \$file,
        line_sep  => '\t',
        field_sep => ','
    );
    isa_ok $exporter, 'Catmandu::Exporter::Text';

    $exporter->add_many($data);

    # don't call commit to test streaming output

    is $exporter->count, 3,                               'Count ok';
    is $file,            "moose\tpony\tshrimp,lobster\t", 'Text doc array';
}

done_testing;