File Coverage

blib/lib/Simple/Filter/MacroLite.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 15 80.0


line stmt bran cond sub pod time code
1             package Simple::Filter::MacroLite;
2              
3             # Set the VERSION.
4             $VERSION = '0.02';
5              
6             # Load the Perl pragmas.
7 1     1   1437 use strict;
  1         3  
  1         29  
8 1     1   5 use warnings;
  1         3  
  1         139  
9              
10             # Outer filter starts here.
11             use Filter::Simple::Compile sub {
12             # Remove package terminator 1; from the package content.
13 0           $_ =~ s/1;\s//g;
14             # Remove the comments from the package content.
15 0           s/#\s+[0-9a-fA-F]+\s*[\n]+||#\s+.*//gm;
16             # sprintf Block starts here.
17 0           $_ = sprintf(
18             # Create a single-quoted string for printing.
19             q(
20             # Inner filter starts here.
21             use Filter::Simple::Compile sub {
22             # Remove comment lines from the script content.
23             $_ =~ s/#\s+[0-9a-fA-F]+\s*[\n]+//gm;
24             # Assemble modules and script.
25             $_ = join("", "%s", $_);
26             };
27             1;
28             # Inner filter ends here.
29             ), $_
30             );
31             # sprintf Block ends here.
32 1     1   9 };
  1         2  
  1         18  
33             1;
34             # Outer filter ends here.