File Coverage

blib/lib/Auth/Kokolores/Response.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 18 21 85.7


line stmt bran cond sub pod time code
1             package Auth::Kokolores::Response;
2              
3 2     2   20290 use Moose;
  2         401886  
  2         13  
4              
5             # ABSTRACT: saslauthd protocol response object
6             our $VERSION = '1.00'; # VERSION
7              
8             use overload
9 3     3   10 q{""} => sub { $_[0]->as_string },
10 2     2   10983 fallback => 1;
  2         4  
  2         19  
11              
12             has 'message' => ( is => 'ro', isa => 'Str', required => 1 );
13              
14             sub as_string {
15 6     6 0 8 my $self = shift;
16 6         227 my $size = length($self->message) + 1;
17 6         171 return pack("nA$size", $size, $self->message."\0");
18             }
19              
20             sub new_OK {
21 1     1 0 24 return shift->new( message => 'OK' );
22             }
23             sub new_NO {
24 1     1 0 25 return shift->new( message => 'NO' );
25             }
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             Auth::Kokolores::Response - saslauthd protocol response object
38              
39             =head1 VERSION
40              
41             version 1.00
42              
43             =head1 AUTHOR
44              
45             Markus Benning <ich@markusbenning.de>
46              
47             =head1 COPYRIGHT AND LICENSE
48              
49             This software is Copyright (c) 2016 by Markus Benning <ich@markusbenning.de>.
50              
51             This is free software, licensed under:
52              
53             The GNU General Public License, Version 2, June 1991
54              
55             =cut