File Coverage

blib/lib/Data/Grid/CSV.pm

Criterion	Covered	Total	%
statement	24	43	55.8
branch	0	8	0.0
condition	0	2	0.0
subroutine	8	16	50.0
pod	5	5	100.0
total	37	74	50.0

package Data::Grid::CSV;

use warnings FATAL => 'all';
use strict;

use base 'Data::Grid';

use Text::CSV;
use IO::File;

=head1 NAME

Data::Grid::CSV - CSV driver for Data::Grid

=head1 VERSION

Version 0.01_01

=cut

our $VERSION = '0.01_01';

=head2 new

=cut

sub new {
    my $class = shift;
    my %p = @_;
    $p{driver} = Text::CSV->new($p{options} || {}) or die $!;
    bless \%p, $class;
}

=head2 tables

=cut

sub tables {
    my $self = shift;
    #warn @Data::Grid::CSV::Table::ISA;
    my $table = $self->table_class->new($self, 0);
    wantarray ? ($table) : [$table];
}

=head2 table_class

=cut

sub table_class {
    'Data::Grid::CSV::Table';
}

=head2 row_class

=cut

sub row_class {
    'Data::Grid::CSV::Row';
}

=head2 cell_class

=cut

sub cell_class {
    'Data::Grid::CSV::Cell';
}

package Data::Grid::CSV::Table;

#use Data::Grid::Table;

use base 'Data::Grid::Table';

sub rewind {
    my $self = shift;
    seek $self->parent->{fh}, 0, 0;
}

sub next {
    my $self = shift;
    my $row = $self->parent->{driver}->getline($self->parent->{fh}) or return;
    $self->parent->row_class->new($self, $self->{counter}++, $row);
}

package Data::Grid::CSV::Row;

use base 'Data::Grid::Row';

sub cells {
    my $self = shift;
    my @cells = @{$self->proxy};
    wantarray ? @cells : \@cells;
}

package Data::Grid::CSV::Cell;

use base 'Data::Grid::Cell';

=head1 AUTHOR

Dorian Taylor, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Data::Grid::CSV

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 LICENSE AND COPYRIGHT

Copyright 2010 Dorian Taylor.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=cut

1; # End of Data::Grid::CSV