File Coverage

blib/lib/Protocol/Database/PostgreSQL/Backend/DataRow.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	3	33.3
total	17	36	47.2

package Protocol::Database::PostgreSQL::Backend::DataRow;

use strict;
use warnings;

our $VERSION = '2.000'; # VERSION

use parent qw(Protocol::Database::PostgreSQL::Backend);

=head1 NAME

Protocol::Database::PostgreSQL::Backend::DataRow

=head1 DESCRIPTION

=cut

use Log::Any qw($log);

sub type { 'data_row' }

sub fields { shift->{fields}->@* }

sub new_from_message {
    my ($class, $msg) = @_;
    my (undef, undef, $count) = unpack('C1N1n1', $msg);
    substr $msg, 0, 7, '';
    my @fields;
    foreach my $idx (0..$count - 1) {
        my ($size) = unpack('N1', substr $msg, 0, 4, '');
        if($size == 0xFFFFFFFF) {
            push @fields, undef;
        } else {
            push @fields, substr $msg, 0, $size, '';
        }
    }
    return $class->new(
        fields => \@fields
    )
}

1;

=head1 AUTHOR

Tom Molesworth

=head1 LICENSE

Copyright Tom Molesworth 2010-2019. Licensed under the same terms as Perl itself.