File Coverage

blib/lib/Log/Saftpresse/Plugin/Postfix/QueueID.pm
Criterion Covered Total %
statement 3 9 33.3
branch 0 2 0.0
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 14 28.5


line stmt bran cond sub pod time code
1             package Log::Saftpresse::Plugin::Postfix::QueueID;
2              
3 1     1   1177 use Moose::Role;
  1         2  
  1         5  
4              
5             # ABSTRACT: plugin to parse the postfix queue ID
6             our $VERSION = '1.5'; # VERSION
7              
8             sub process_queueid {
9 0     0 0   my ( $self, $stash, $notes ) = @_;
10            
11 0 0         if( my ( $queue_id, $msg ) = $stash->{'message'} =~
12             /^([A-Z0-9]{8,12}|[b-zB-Z0-9]{15}|NOQUEUE): (.+)$/) {
13 0           $stash->{'queue_id'} = $queue_id;
14 0           $stash->{'message'} = $msg;
15 0           $self->get_tracking_id('queue_id', $stash, $notes);
16             }
17              
18 0           return;
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Log::Saftpresse::Plugin::Postfix::QueueID - plugin to parse the postfix queue ID
32              
33             =head1 VERSION
34              
35             version 1.5
36              
37             =head1 AUTHOR
38              
39             Markus Benning <ich@markusbenning.de>
40              
41             =head1 COPYRIGHT AND LICENSE
42              
43             This software is Copyright (c) 1998 by James S. Seymour, 2015 by Markus Benning.
44              
45             This is free software, licensed under:
46              
47             The GNU General Public License, Version 2, June 1991
48              
49             =cut