File Coverage

blib/lib/Thesaurus/CSV.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	5	8	62.5
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	56	59	94.9

package Thesaurus::CSV;

use strict;

use Thesaurus;

use base 'Thesaurus';

use IO::File;
use Params::Validate qw( validate SCALAR BOOLEAN );
use Text::CSV_XS;

sub new
{
    return shift->SUPER::new(@_);
}

sub _init
{
    my $self = shift;
    my %p = validate( @_,
                      { filename => { type => SCALAR } }
                    );

    $self->{csv} = Text::CSV_XS->new( { binary => 1 } );
    $self->{params}{filename} = $p{filename};

    if ( -e $self->{params}{filename} )
    {
        my $fh = IO::File->new("<$self->{params}{filename}")
            or die "Cannot read $self->{params}{filename}: $!";

        while ( ! $fh->eof )
        {
            my $cols = $self->{csv}->getline($fh);

            die "Text::CSV_XS can't parse " . $self->{csv}->error_input
                unless defined $cols;

            $self->add($cols);
        }
    }

    return $self;
}

sub save
{
    my $self = shift;

    my $fh = IO::File->new(">$self->{params}{filename}")
	or die "Cannot write to $self->{params}{filename}: $!";

    foreach my $list ( $self->all )
    {
	$self->{csv}->print( $fh, $list );
	print $fh "\n";
    }

    close $fh;
}

1;

__END__