File Coverage

blib/lib/Protocol/Database/PostgreSQL/Backend/ParameterStatus.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 6 50.0
pod 1 3 33.3
total 13 23 56.5


line stmt bran cond sub pod time code
1             package Protocol::Database::PostgreSQL::Backend::ParameterStatus;
2              
3 4     4   162198 use strict;
  4         10  
  4         214  
4 4     4   83 use warnings;
  4         64  
  4         365  
5              
6             our $VERSION = '2.001'; # VERSION
7              
8 4     4   33 use parent qw(Protocol::Database::PostgreSQL::Backend);
  4         8  
  4         52  
9              
10             =head1 NAME
11              
12             Protocol::Database::PostgreSQL::Backend::ParameterStatus
13              
14             =head1 DESCRIPTION
15              
16             =cut
17              
18 0     0 0   sub key { shift->{key} }
19 0     0 0   sub value { shift->{value} }
20              
21             sub new_from_message {
22 0     0 1   my ($class, $msg) = @_;
23              
24             # Extract size then reset pointer to start of parameters
25 0           my (undef, undef, $k, $v) = unpack('C1N1Z*Z*', $msg);
26              
27 0           return $class->new(
28             key => $k,
29             value => $v,
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