File Coverage

blib/lib/Protocol/Database/PostgreSQL/Backend/ParameterDescription.pm
Criterion Covered Total %
statement 9 18 50.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 23 56.5


line stmt bran cond sub pod time code
1             package Protocol::Database::PostgreSQL::Backend::ParameterDescription;
2              
3 1     1   6 use strict;
  1         1  
  1         25  
4 1     1   4 use warnings;
  1         2  
  1         34  
5              
6             our $VERSION = '2.000'; # VERSION
7              
8 1     1   5 use parent qw(Protocol::Database::PostgreSQL::Backend);
  1         1  
  1         4  
9              
10             =head1 NAME
11              
12             Protocol::Database::PostgreSQL::Backend::ParameterDescription
13              
14             =head1 DESCRIPTION
15              
16             =cut
17              
18             sub new_from_message {
19 0     0 1   my ($class, $msg) = @_;
20 0           (undef, my $size, my $count) = unpack('C1N1n1', $msg);
21 0           substr $msg, 0, 7, '';
22 0           my @oid_list;
23 0           for my $idx (1..$count) {
24 0           my ($oid) = unpack('N1', $msg);
25 0           substr $msg, 0, 4, '';
26 0           push @oid_list, $oid;
27             }
28 0           return $class->new(
29             oids => \@oid_list
30             );
31             }
32              
33             1;
34              
35             =head1 AUTHOR
36              
37             Tom Molesworth
38              
39             =head1 LICENSE
40              
41             Copyright Tom Molesworth 2010-2019. Licensed under the same terms as Perl itself.
42