File Coverage

blib/lib/Data/Tabular/Dumper/Writer.pm

Criterion	Covered	Total	%
statement	11	20	55.0
branch	3	6	50.0
condition			n/a
subroutine	2	7	28.5
pod	0	6	0.0
total	16	39	41.0

# $Id: Writer.pm 456 2009-04-15 12:20:59Z fil $
package Data::Tabular::Dumper::Writer;
use strict;

###########################################################
sub open
{
    my($package, $file )=@_;

    $file = $file->[0] if 'ARRAY' eq ref $file;

    my $fh;
    if( ref $file ) {
        $fh = $file;        # assume it's a valid filehandle
    }
    else {
        $fh=eval { local *FH;};
        open $fh, ">$file" or die "Unable to open $file: $!\n";
    }
    return bless { fh=>$fh, fields=>[] }, $package;
}


###########################################################
sub close
{
    my($self)=@_;
    delete $self->{fh};
}

###########################################################
sub write
{
    my($self, $data)=@_;
    die "You MUST overload ", ref($self), "->write";
}

###########################################################
sub fields
{
    my( $self, $data ) = @_;
    $self->write( $data );
}

###########################################################
sub page_start
{
    return;
}

###########################################################
sub page_end
{
    return;
}

1;

__END__