File Coverage

blib/lib/Log/Saftpresse/Input/RELP/RSP.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 8 50.0


line stmt bran cond sub pod time code
1             package Log::Saftpresse::Input::RELP::RSP;
2              
3 1     1   4 use Moose;
  1         1  
  1         7  
4              
5             our $VERSION = '1.5'; # VERSION
6             # ABSTRACT: class for building RELP RSP records
7              
8             has 'code' => ( is => 'rw', isa => 'Int', required => 1 );
9             has 'message' => ( is => 'rw', isa => 'Str', required => 1 );
10             has 'data' => ( is => 'rw', isa => 'Str', default => '' );
11              
12             sub as_string {
13 0     0 0   my $self = shift;
14 0           return join(' ', $self->code, $self->message)."\n".$self->data;
15             }
16              
17             1;
18              
19             __END__
20              
21             =pod
22              
23             =encoding UTF-8
24              
25             =head1 NAME
26              
27             Log::Saftpresse::Input::RELP::RSP - class for building RELP RSP records
28              
29             =head1 VERSION
30              
31             version 1.5
32              
33             =head1 AUTHOR
34              
35             Markus Benning <ich@markusbenning.de>
36              
37             =head1 COPYRIGHT AND LICENSE
38              
39             This software is Copyright (c) 1998 by James S. Seymour, 2015 by Markus Benning.
40              
41             This is free software, licensed under:
42              
43             The GNU General Public License, Version 2, June 1991
44              
45             =cut