File Coverage

blib/lib/Gwybodaeth/Parsers/CSV.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	37	38	97.3

#!/usr/bin/env perl

use warnings;
use strict;

package Gwybodaeth::Parsers::CSV;

=head1 NAME

Parsers::CSV - Parses CSV into a data structure.

=head1 SYNOPSIS

    use CSV;

    my $csv = CSV->new();

    $csv->parse(@data);

=head1 DESCRIPTION

This module parses CSV documents into a data structure. This structure is an array of arrays.

=over

=cut

use Carp qw(croak);
use Text::CSV;

=item new()

Returns an instance of the Parsers::CSV class.

=cut

sub new {
    my $class = shift;
    my $self = { quote_char => '"',
                 sep_char => ',' };
    bless $self, $class;
    return $self;
}

=item parse(@data)

Takes a CSV as an array of lines and outputs an array reference
to an array of arrays.

=cut

sub parse {
    my($self, @data) = @_;

    ref($self) or croak "instance variable needed";

    my @rows;
    my $i;
    my $csv = Text::CSV->new( {binary => 1,
                               quote_char => $self->{quote_char},
                               sep_char => $self->{sep_char}
                            } );

    for my $row (@data) {
        if ($csv->parse($row)) {
            my @fields = $csv->fields();
            $rows[$i++] = \@fields;
        } else {
            croak "unable to parse row: " . $csv->error_input . "\n".
                  "Are you sure this is CSV data?";
        }
    }

    return \@rows;
}
1;
__END__