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.07";

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

=pod

=item Subroutine FILTER()

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.

=cut

# 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__