File Coverage

blib/lib/Data/Tabular/Extra.pm

Criterion	Covered	Total	%
statement	34	41	82.9
branch	7	12	58.3
condition	1	2	50.0
subroutine	5	7	71.4
pod	4	5	80.0
total	51	67	76.1

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

use strict;
package
    Data::Tabular::Extra;

sub new
{
    my $class = shift;
    my $args = {@_};
    my $self = bless {}, $class;

    for my $arg (qw (row table)) {
	$self->{$arg} = $args->{$arg} || die 'No ' . $arg;
	delete $args->{$arg};
    }
    die q|Unknown argumet(s): |. join(' ', keys(%$args)) if keys(%$args);

    die unless $self->{row};
    die unless $self->{table};

    $self;
}

sub get
{
    my $self = shift;

    if (wantarray) {
	map({$self->{row}->get_column($_)} @_);
    } else {
        carp("only one column allowed in scalar context.") if @_ > 1;
	$self->{row}->get_column(shift);
    }
}

sub sum
{
    my $self = shift;
    my $total = 0;

    for my $column (@_) {
	my $data = $self->{row}->get_column($column);
	if (ref($data) eq 'HASH') {
die;
	    $data = $data->{html};
	}

	$total += $data;
    }

    require Data::Tabular::Type::Formula;

    Data::Tabular::Type::Formula->new(
	data => $total,
	columns => [ @_ ],
	type => 'sum',
    );
}

sub average
{
    my $self = shift;
    my $count = scalar(@_);

    my $total = 0;

    for my $column (@_) {
	$total += $self->{row}->get_column($column);
    }

    require Data::Tabular::Type::Formula;

    Data::Tabular::Type::Formula->new(
	data => $total / $count,
	columns => [ @_ ],
	type => 'average',
    );
}

sub row_id
{
    my $self = shift;

    $self->{row}{row_id};
}

sub _new_cell
{
    my $self = shift;
    my $args = { @_ };

    $args
}

1;
__END__