File Coverage

blib/lib/Protocol/Database/PostgreSQL/Backend/CommandComplete.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::CommandComplete;
2              
3 1     1   7 use strict;
  1         2  
  1         29  
4 1     1   5 use warnings;
  1         2  
  1         42  
5              
6             our $VERSION = '1.005'; # VERSION
7              
8 1     1   5 use parent qw(Protocol::Database::PostgreSQL::Backend);
  1         2  
  1         5  
9              
10             =head1 NAME
11              
12             Protocol::Database::PostgreSQL::Backend::CommandComplete - an authentication request message
13              
14             =head1 DESCRIPTION
15              
16             =cut
17              
18 0     0 0   sub type { 'command_complete' }
19              
20 0     0 0   sub result { shift->{result} }
21              
22             sub new_from_message {
23 0     0 1   my ($class, $msg) = @_;
24 0           my (undef, undef, $result) = unpack('C1N1Z*', $msg);
25 0           return $class->new(
26             result => $result
27             );
28             }
29              
30             1;
31              
32             =head1 AUTHOR
33              
34             Tom Molesworth
35              
36             =head1 LICENSE
37              
38             Copyright Tom Molesworth 2010-2019. Licensed under the same terms as Perl itself.
39