File Coverage

blib/lib/assertions/compat.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	5	8	62.5
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	34	41	82.9

package assertions::compat;

our $VERSION = '0.02';

require assertions;
our @ISA = qw(assertions);

sub _on () { 1 }
sub _off () { 0 }

sub import {
    my $class = shift;
    my $name = @_ ? shift : 'asserting';
    my $pkg = caller;
    $name =~ /::/ or $name = "${pkg}::${name}";
    @_ = $pkg unless @_;
    $class->SUPER::import(@_);
    my $enabled = assertions::enabled();
    {
	no strict 'vars';
	no warnings;
	undef &{$name};
	*{$name} = $enabled ? \&_on : \&_off;
    }
}

sub _compat_assertion_handler {
    shift; shift;
    grep $_ ne 'assertion', @_
}

sub _do_nothing_handler {}

# test if 'assertion' attribute is natively supported
my $assertion_ok=eval q{
    sub _my_asserting_test : assertion { 1 }
    _my_asserting_test()
};

*MODIFY_CODE_ATTRIBUTES =
    defined($assertion_ok)
    ? \&_do_nothing_handler
    : \&_compat_assertion_handler;

*supported =
    defined($assertion_ok)
    ? \&_on
    : \&_off;

unless (defined $assertion_ok) {
    package assertions;
    require warnings::register;
    warnings::register->import;
}


1;

__END__