File Coverage

blib/lib/Data/Record/Serialize/Encode/csv.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	14	15	93.3

package Data::Record::Serialize::Encode::csv;

# ABSTRACT: encode a record as csv

use Moo::Role;

use namespace::clean;

our $VERSION = '0.03';

with 'Data::Record::Serialize::Role::Encode::CSV';

sub encode {
    my $self = shift;
    $self->_csv->combine( @{ $_[0] }{ @{ $self->output_fields } } );
    $self->_csv->string;
}






with 'Data::Record::Serialize::Role::Encode';

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__