File Coverage

blib/lib/Data/Tabular/Group/Interface.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	2	4	50.0
condition	3	6	50.0
subroutine	7	8	87.5
pod	7	7	100.0
total	47	55	85.4

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

use strict;
package
    Data::Tabular::Group::Interface;

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

    die 'A group field is required' unless defined $self->{group};

    $self;
}

sub get
{
    my $self = shift;
    my $column_name = shift;

    $self->{group}->get($column_name);
}

sub count
{
    my $self = shift;
    scalar $self->{group}->raw_rows();
}

sub header
{
    my $self = shift;
    my $args = { @_ };
    require Data::Tabular::Row::Header;
    Data::Tabular::Row::Header->new(
	text => $args->{text},
	table => $self->{group},
    );
}

sub titles
{
    my $self = shift;
    require Data::Tabular::Row::Titles;

    Data::Tabular::Row::Titles->new(
	@_,
	table => $self->{group},
    );
}

sub totals
{
    my $self = shift;
    my $args = { @_ };
    require Data::Tabular::Row::Totals;
    my $sum_list = $args->{sum_list} || $self->{group}->{group}->{sum_list};
    die('Need sum list') unless $sum_list;

    Data::Tabular::Row::Totals->new(
	text => $args->{title},
	table => $self->{group},
        sum_list => $sum_list,
        extra => $self->{group}->{group}->{extra},
    );
}

*sum = \&totals;

sub averages
{
    my $self = shift;
    my $args = { @_ };
    require Data::Tabular::Row::Averages;
    my $sum_list = $args->{sum_list} || $self->{group}->{group}->{sum_list};

    Data::Tabular::Row::Averages->new(
	text => $args->{title},
	table => $self->{group},
        sum_list => $sum_list,
        extra => $self->{group}->{group}->{extra},
    );
}

*avg = \&averages;

1;
__END__