File Coverage

blib/lib/Perl/Phase.pm

Criterion	Covered	Total	%
statement	8	24	33.3
branch	0	12	0.0
condition	0	15	0.0
subroutine	3	7	42.8
pod	4	4	100.0
total	15	62	24.1

package Perl::Phase;

use strict;
use warnings;

use 5.14.0;    # for ${^GLOBAL_PHASE}

our $VERSION = '0.01';

sub is_compile_time {

    # why not just `return !is_run_time();`? more explicit/accurate && save a `pp_entersub` op
    return ${^GLOBAL_PHASE}
      if ${^GLOBAL_PHASE} eq "CONSTRUCT"
      || ${^GLOBAL_PHASE} eq "START"
      || ${^GLOBAL_PHASE} eq "CHECK";
    return;
}

sub is_run_time {
    return ${^GLOBAL_PHASE}
      if ${^GLOBAL_PHASE} eq "INIT"
      || ${^GLOBAL_PHASE} eq "RUN"
      || ${^GLOBAL_PHASE} eq "END"
      || ${^GLOBAL_PHASE} eq "DESTRUCT";
    return;
}

sub assert_is_run_time {
    return ${^GLOBAL_PHASE} if is_run_time();

    my @caller = caller(1);
    if (@caller) {
        die "$caller[3]() called at compile time at $caller[1] line $caller[2]\n";
    }
    else {
        die "This code should not be executed at compile time";
    }

    return ${^GLOBAL_PHASE};
}

sub assert_is_compile_time {
    return ${^GLOBAL_PHASE} if is_compile_time();

    my @caller = caller(1);
    if (@caller) {
        die "$caller[3]() called at run time at $caller[1] line $caller[2]\n";
    }
    else {
        die "This code should not be executed at run time";
    }

    return;
}

1;

__END__