File Coverage

blib/lib/Perl/WhichPhase.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	9	9	100.0
subroutine	8	8	100.0
pod	6	6	100.0
total	41	41	100.0

package Perl::WhichPhase;

use strict;
use vars qw: $VERSION @ISA @EXPORT_OK %EXPORT_TAGS :;

$VERSION = "0.01";

@ISA = qw: Exporter :;

@EXPORT_OK = qw"
  block
  in_BEGIN
  in_INIT
  in_END
  in_CHECK
  in_CODE
";

%EXPORT_TAGS = (
  in => [ qw: in_BEGIN in_INIT in_END in_CHECK in_CODE : ],
);

sub block () {
  my($i, $b, $subroutine) = 1;
  while($subroutine = (caller($i++))[3]) {
    $b = (split(/::/, $subroutine))[-1];
    return $b if($b eq 'BEGIN' || $b eq 'END' || $b eq 'INIT' || $b eq 'CHECK');
  }
  return;
}

sub in_BEGIN () { return block eq 'BEGIN'; }
sub in_INIT  () { return block eq 'INIT'; }
sub in_END   () { return block eq 'END'; }
sub in_CHECK () { return block eq 'CHECK'; }
sub in_CODE  () { return !defined block; }

1;

__END__