File Coverage

blib/lib/Data/Tabular/Output/CSV.pm

Criterion	Covered	Total	%
statement	35	37	94.5
branch	8	10	80.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	48	53	90.5

# Copyright (C) 2003-2007, G. Allen Morris III, all rights reserved

use strict;

package Data::Tabular::Output::CSV;

use base "Data::Tabular::Output";

use overload 'eq' => \&_eq;

sub _eq
{
    my ($a, $b, $x) = @_;

    if ($x) {
	$a->text eq $b;
    } else {
        $a eq $b->text;
    }
}

sub text
{
    my $self = shift;
    my $ret = "\n";

    my $output = $self->output;


    for my $row ($self->rows()) {
	my @table;
	for my $cell ($row->cells($output->headers)) {
            my $cell_data = $cell->html_string;
            my $width = 20; # $cell->width;
	    $cell_data =~ s/^\s*(.*)\s*$/$1/;
	    my $quote;
	    if ($cell_data =~ /,/) {
	         $quote = 1;
	    }
	    if ($cell_data =~ /"/) {
	         $cell_data =~ s/"/""/g;
	         $quote = 1;
	    }
	    if ($quote) {
	         $cell_data = '"' . $cell_data . '"';
	    }
            push(@table, $cell_data);
	    my $length = $width - length($cell_data);
	    if ($length <=0) {
	        $length = 1;
	    }
	}
	$ret .= join(',', @table);
	$ret .= "\n";
    }

    $ret;
}

1;
__END__