File Coverage

blib/lib/Config/Any/CSV.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	9	14	64.2
condition	6	12	50.0
subroutine	7	7	100.0
pod	0	2	0.0
total	60	73	82.1

use strict;
use warnings;
package Config::Any::CSV;
#ABSTRACT: Load CSV as config files
our $VERSION = '0.05'; #VERSION

use v5.10;
use base 'Config::Any::Base';
use Text::CSV;

sub load {
    my ($class, $file, $driver) = @_;

    my $with_key = 0;
    my $args = { binary => 1, allow_whitespace => 1 };
    if ($driver) {
        $with_key = delete $driver->{with_key};
        $args->{$_} = $driver->{$_} for keys %$driver;
    }
    my $csv = Text::CSV->new( $args );
    my $config = { };
    open my $fh, "<", $file or die $!;

    my $default = $args->{empty_is_undef} ? undef : "";

    my $names = $csv->getline($fh);
    if ( $names ) {
        my $columns = scalar @$names - 1;
        while ( my $row = $csv->getline( $fh ) ) {
            next if @$row == 1 and $row->[0] eq ''; # empty line
            my $id = $row->[0] // "";
            $config->{ $id } = {
                map { ( $names->[$_] // "" ) => ( $row->[$_] // $default ) }
                (1..$columns)
            };
            $config->{ $id }->{ $names->[0] // "" } = $id if $with_key;
        }
    }
    die $csv->error_diag() unless $csv->eof;
    close $fh;

    return $config;
}

sub extensions {
    return ('csv');
}

1;

__END__