File Coverage

blib/lib/DBD/PO/Table.pm

Criterion	Covered	Total	%
statement	18	41	43.9
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	9	66.6
pod	3	3	100.0
total	27	60	45.0

package DBD::PO::Table;

use strict;
use warnings;

our $VERSION = '2.00';

use DBD::File;
use parent qw(-norequire DBD::File::Table);

use Carp qw(croak);
use English qw(-no_match_vars $INPUT_RECORD_SEPARATOR);

sub fetch_row {
    my ($self, $data) = @_;

    my $file_handle = $self->{fh};
    my $file_name   = $self->{file};
    my $fields;
    if (exists $self->{cached_row}) {
        $fields = delete $self->{cached_row};
    }
    else {
        my $po = $self->{po_po};
        local $INPUT_RECORD_SEPARATOR = $po->{eol};
        $fields = $po->read_entry($file_name, $file_handle);
    }

    return $self->{row} = @{$fields} ? $fields : ();
}

sub push_row {
    my ($self, $data, $fields) = @_;

    my $po          = $self->{po_po};
    my $file_handle = $self->{fh};
    my $file_name   = $self->{file};

    #  Remove undef from the right end of the fields, so that at least
    #  in these cases undef is returned from FetchRow
    while (@{$fields} && ! defined $fields->[-1]) {
        pop @{$fields};
    }
    $po->write_entry($file_name, $file_handle, $fields);

    return 1;
}

sub push_names {
    my ($self, $data, $fields) = @_;

    return 1;
}

1;

__END__