File Coverage

lib/Qmail/Deliverable/Status.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Qmail::Deliverable::Status;
2              
3 20     20   308620 use strict;
  20         28  
  20         646  
4 20     20   284 use 5.006;
  20         67  
5 20     20   92 use Exporter 'import';
  20         39  
  20         1926  
6              
7             our $VERSION = '1.12';
8              
9             use constant {
10 20         10030 QD_NOT_DELIVERABLE => 0x00,
11             QD_UNKNOWN_PERM_DENIED => 0x11,
12             QD_UNKNOWN_PIPE => 0x12,
13             QD_UNKNOWN_BOUNCESAYING => 0x13,
14             QD_EZMLM => 0x14,
15             QD_TEMPFAIL_GROUP_WRITABLE => 0x21,
16             QD_TEMPFAIL_STICKY => 0x22,
17             QD_CLIENT_FAILURE => 0x2f,
18             QD_DELIVERABLE => 0xf1,
19             QD_VPOPMAIL_DIR => 0xf2,
20             QD_VPOPMAIL_VALIAS => 0xf3,
21             QD_VPOPMAIL_CATCHALL => 0xf4,
22             QD_VPOPMAIL_VUSER => 0xf5,
23             QD_VPOPMAIL_QMAIL_EXT => 0xf6,
24             QD_VPOPMAIL_NO_DOMAIN => 0xfe,
25             QD_NOT_LOCAL => 0xff,
26 20     20   113 };
  20         81  
27              
28             our @STATUS = qw(
29             QD_NOT_DELIVERABLE
30             QD_UNKNOWN_PERM_DENIED
31             QD_UNKNOWN_PIPE
32             QD_UNKNOWN_BOUNCESAYING
33             QD_EZMLM
34             QD_TEMPFAIL_GROUP_WRITABLE
35             QD_TEMPFAIL_STICKY
36             QD_CLIENT_FAILURE
37             QD_DELIVERABLE
38             QD_VPOPMAIL_DIR
39             QD_VPOPMAIL_VALIAS
40             QD_VPOPMAIL_CATCHALL
41             QD_VPOPMAIL_VUSER
42             QD_VPOPMAIL_QMAIL_EXT
43             QD_VPOPMAIL_NO_DOMAIN
44             QD_NOT_LOCAL
45             );
46              
47             our @EXPORT_OK = @STATUS;
48             our %EXPORT_TAGS = (
49             all => \@STATUS,
50             status => \@STATUS,
51             );
52              
53             1;
54              
55             __END__