File Coverage

blib/lib/Perl/Phase.pm

Criterion	Covered	Total	%
statement	28	32	87.5
branch	20	22	90.9
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	59	65	90.7

package Perl::Phase;

use strict;
use warnings;

our $VERSION = '0.02';

use XSLoader;
XSLoader::load(__PACKAGE__);

sub is_compile_time {
    my $current_phase = current_phase();
    return 1 if $current_phase == PERL_PHASE_CONSTRUCT();
    return 1 if $current_phase == PERL_PHASE_START();
    return 1 if $current_phase == PERL_PHASE_CHECK();
    return;
}

sub is_run_time {
    my $current_phase = current_phase();
    return 1 if $current_phase == PERL_PHASE_INIT();
    return 1 if $current_phase == PERL_PHASE_RUN();
    return 1 if $current_phase == PERL_PHASE_END();
    return 1 if $current_phase == PERL_PHASE_DESTRUCT();
    return;
}

sub assert_is_run_time {
    return 1 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;
}

sub assert_is_compile_time {
    return 1 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__