File Coverage

blib/lib/Data/Record/Serialize/Role/Encode/CSV.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	1	4	25.0
condition			n/a
subroutine	9	10	90.0
pod	0	2	0.0
total	36	43	83.7

package Data::Record::Serialize::Role::Encode::CSV;

# ABSTRACT: encode a record as csv

use Moo::Role;

use Data::Record::Serialize::Error { errors => ['csv_backend'] }, -all;
use Types::Common::String qw( NonEmptyStr );
use Types::Standard qw( Bool );

use Text::CSV;

use namespace::clean;

our $VERSION = '0.03';

sub _needs_eol { 1 }

has binary => (
    is      => 'ro',
    isa     => Bool,
    default => 1,
);

has sep_char => (
    is      => 'ro',
    default => ','
);

has quote_char => (
    is      => 'ro',
    default => '"'
);

has escape_char => (
    is      => 'ro',
    default => '"'
);

has always_quote => (
    is      => 'ro',
    isa     => Bool,
    default => 0,
);

has quote_empty => (
    is      => 'ro',
    isa     => Bool,
    default => 0,
);

has _csv => (
    is       => 'lazy',
    init_arg => undef,
);

sub to_bool { $_[0] ? 1 : 0 }

sub _build__csv {
    my $self = shift;

    my %args = (
        binary       => $self->binary,
        sep_char     => $self->sep_char,
        quote_char   => $self->quote_char,
        escape_char  => $self->escape_char,
        always_quote => $self->always_quote,
        quote_empty  => $self->quote_empty,
        auto_diag => 2,
    );

    return Text::CSV->new( \%args );
}

sub setup {
    my $self = shift;
    $self->_csv->combine( @{ $self->output_fields } )
      or croak( 'error creating CSV header' );
    $self->say( $self->_csv->string );
}










1;

#
# This file is part of Data-Record-Serialize-Encode-csv
#
# This software is Copyright (c) 2022 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__