File Coverage

blib/lib/File/Process/Utils.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition	2	5	40.0
subroutine	8	8	100.0
pod	1	1	100.0
total	42	46	91.3

package File::Process::Utils;

use strict;
use warnings;

use File::Process qw(pre process_file :booleans);
use Text::CSV_XS;

use parent qw(Exporter);

our @EXPORT_OK = qw(process_csv);

our $VERSION = '0.09';

########################################################################
sub process_csv {
########################################################################
  my ( $file, %options ) = @_;

  my $csv_options = $options{csv_options} // {};

  my $csv = Text::CSV_XS->new($csv_options);

  $options{chomp} //= $TRUE;

  my ($csv_lines) = process_file(
    $file,
    csv         => $csv,
    chomp       => $options{chomp},
    has_headers => $options{has_headers},
    pre         => sub {
      my ( $file, $args ) = @_;

      my ( $fh, $all_lines ) = pre( $file, $args );

      if ( $args->{'has_headers'} ) {
        my @column_names = $args->{csv}->getline($fh);
        $args->{csv}->column_names(@column_names);
      }

      return ( $fh, $all_lines );
    },
    next_line => sub {
      my ( $fh, $all_lines, $args ) = @_;
      my $ref = $args->{csv}->getline_hr($fh);
      return $ref;
    }
  );

  return $csv_lines;
}

1;

__END__