File Coverage

blib/lib/Simple/Filter/Macro.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	14	85.7

package Simple::Filter::Macro;

# Set the VERSION.
$VERSION = "0.06";

# Load the Perl pragmas.
use strict;
use warnings;

# --------------------------------------------------------------------------- #
# The outer value of $_ is the content from the module. The inner value of    #
# $_ is the content from the script. The Perl function caller is used as      #
# follows. E.g. one can write my ($package, $filename, $line) = caller($i)    #
# where $i is the level of interest. The elements of the array can be reached #
# as it is known by caller(0)[0] which results the package name of level 0.   #
# caller(5) returns the data from the module and caller(6) returns the data   #
# from the script.                                                            #
# --------------------------------------------------------------------------- #

# Outer filter starts here.
use Filter::Simple::Compile sub {
    # Remove the module terminator from the module content.
    $_ =~ s/1;\s//g;
    # Create the modified script content.
    $_ = sprintf(
        # Create a single-quoted string for output.
        q(
            # Inner filter starts here.
            use Filter::Simple::Compile sub {
                # Concatenate content from module and script.
                $_ = join("\n",
                    '# Line %s %s', "%s", '# Line %s %s',
                    $_,
                );
            };
            # Inner filter ends here.
            1;
    ), (caller(5))[2], (caller(5))[1],
       $_,
       (caller(6))[2], (caller(6))[1]);
};
# Outer filter ends here.
1;

__END__