Data::Tabular::Output::CSV - Data::Tabular::Output::CSV documentation

Data-Tabular documentation Contained in the Data-Tabular distribution.

Index

Code Index:

NAME

Top

Data::Tabular::Output::CSV

SYNOPSIS

Top

This object is used by Data::Tabular to render a table in comma separated variable format.

DESCRIPTION

Top

METHODS

Top

html

This method returns a string that is an HTML table.

Data-Tabular documentation Contained in the Data-Tabular distribution. 
# 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__


1;