File Coverage

blib/lib/Data/Tabular/Row/Titles.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition	1	2	50.0
subroutine	3	3	100.0
pod	0	1	0.0
total	14	16	87.5

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

use strict;
package
    Data::Tabular::Row::Titles;

use base 'Data::Tabular::Row';

sub get_column
{
    my $self = shift;
    my $key = shift || die 'need column name';

    my $output = $self->output;

    Data::Tabular::Type->new(
	data => $output->title($key),
	format => $output->format('_title', $key),
    );
}

1;
__END__