File Coverage

blib/lib/Devel/Assert.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	8	8	100.0
condition	1	3	33.3
subroutine	4	5	80.0
pod	0	2	0.0
total	31	37	83.7

package Devel::Assert;
use strict;

our $VERSION = '1.01';

our $__ASSERT_GLOBAL = 0;

require XSLoader;
XSLoader::load('Devel::Assert', $VERSION);

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

    $__ASSERT_GLOBAL = 1 if $arg eq 'global';

    my $ref = $arg eq 'off' || !$__ASSERT_GLOBAL && $arg ne 'on' ? \&assert_off : \&assert_on;
    {
        no strict 'refs';
        *{"${caller}::assert"} = $ref if !defined *{"${caller}::assert"}{CODE};
    }
}

sub assert_on {
    unless ($_[0]) {
        require Carp;
        $Carp::Internal{'Devel::Assert'}++;
        Carp::confess("Assertion failed");
    }
}

sub assert_off {}

1;