File Coverage

blib/lib/Perl/Phase/AtRunTime.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	43	44	97.7

package Perl::Phase::AtRunTime;

use strict;
use warnings;

our $VERSION = '0.03';

sub import {
    my ( $class, @runtime_calls ) = @_;

    my $caller = caller();
    for my $rt_call (@runtime_calls) {

        # can not simply do:
        # $rt_call->() if Perl::Phase::is_run_time();
        # because then the code is not executed when the caller is loaded at compile time

        local $@;

        ## no critic qw(BuiltinFunctions::ProhibitStringyEval)
        eval qq{
            package $caller {
                { # for use()
                    no warnings; ## no critic qw(TestingAndDebugging::ProhibitNoWarnings)
                    INIT {
                        use warnings;
                        \$rt_call->();
                    }
                }

                # for require(), when its too late to run INIT
                if( \${^GLOBAL_PHASE} eq 'RUN') {
                    use warnings; # for consistency w/ the INIT version
                    \$rt_call->();
                }
            };
        };
        die if $@;
    }

    return;
}

1;

__END__