File Coverage

blib/lib/Mail/Mbox/MessageParser/Config.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Mail::Mbox::MessageParser::Config;
2              
3 39     39   2616260 use strict;
  39         99  
  39         1152  
4              
5 39     39   170 use vars qw( $VERSION %Config );
  39         79  
  39         3795  
6              
7             $VERSION = sprintf "%d.%02d%02d", q/0.1.2/ =~ /(\d+)/g;
8              
9             %Mail::Mbox::MessageParser::Config = (
10             'programs' => {
11             'bzip' => '/bin/bzip2',
12             'bzip2' => '/bin/bzip2',
13             'cat' => '/bin/cat',
14             'diff' => '/usr/bin/diff',
15             'grep' => undef,
16             'gzip' => '/bin/gzip',
17             'lzip' => undef,
18             'xz' => '/usr/bin/xz',
19             },
20              
21             'max_testchar_buffer_size' => 1048576,
22              
23             'read_chunk_size' => 20000,
24              
25             'from_pattern' => q/(?mx)^
26             (From\s
27             # Skip names, months, days
28             (?> [^:\n]+ )
29             # Match time
30             (?: :\d\d){1,2}
31             # Match time zone (EST), hour shift (+0500), and-or year
32             (?: \s+ (?: [A-Z]{2,6} | [+-]?\d{4} ) ){1,3}
33             # smail compatibility
34             (\sremote\sfrom\s.*)?
35             )/,
36              
37             );
38              
39             1;
40              
41             __END__