File Coverage

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

Criterion	Covered	Total	%
statement	12	19	63.1
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	1	4	25.0
total	17	31	54.8

package Protocol::Database::PostgreSQL::Backend::CopyOutResponse;

use strict;
use warnings;

our $VERSION = '1.005'; # VERSION

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

=head1 NAME

Protocol::Database::PostgreSQL::Backend::CopyOutResponse

=head1 DESCRIPTION

=cut

use Log::Any qw($log);

sub type { 'copy_out_response' }

sub data_format { shift->{data_format} }
sub count { shift->{count} }
sub new_from_message {
    my ($class, $msg) = @_;
    (undef, undef, my $data_format, my $count, my @formats) = unpack('C1N1C1n1 (n1)*', $msg);
    $log->tracef('COPY IN %s with %s columns, formats %s', $data_format, $count, \@formats);
    return $class->new(
        data_format => $data_format,
        count       => $count,
        formats     => \@formats
    );
}

1;

=head1 AUTHOR

Tom Molesworth

=head1 LICENSE

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