File Coverage

blib/lib/Mail/Lite/Processor/Stub.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Mail::Lite::Processor::Stub;
2              
3 1     1   6 use strict;
  1         2  
  1         46  
4 1     1   6 use warnings;
  1         2  
  1         33  
5              
6 1     1   6 use Mail::Lite::Constants;
  1         2  
  1         96  
7 1     1   36 use Smart::Comments -ENV;
  1         3  
  1         12  
8              
9              
10              
11             sub process {
12 1     1 0 4 my $args_ref = shift;
13              
14 1         3 ${ $args_ref->{ output } } = $args_ref->{ input };
  1         3  
15 1         5 return OK;
16             }
17              
18              
19              
20             1;