view release on metacpan or  search on metacpan

lib/Ambrosia/Assert.pm  view on Meta::CPAN

package Ambrosia::Assert;
use strict;
use warnings;
use Carp;

use Ambrosia::error::Exceptions;

our $VERSION = 0.010;

our %PROCESS_MAP = ();
our %ASSERT = ();

sub import
{
    my $package = shift;
    return if eval{$package->can('assert')};

    assign(shift) if @_;

    no strict 'refs';
    my $package_instance = caller(0);
    if ( debug_mode($PROCESS_MAP{$$}, @_) )
    {
        *{"${package_instance}::assert"} = sub(&$) { goto &__assert; };
    }
    else
    {
        *{"${package_instance}::assert"} = sub(&$) {};
    }

}

sub __assert(&$)
{
    my $condition = shift;
    if (( ref $condition eq 'CODE' && !$condition->() ) || !$condition)
    {
        carp( 'error: ' . shift);
        exit(42);
    }
}
################################################################################

sub assign
{
    $PROCESS_MAP{$$} = shift;
}

sub debug_mode
{
    my $key = shift or return 0;
    my $mode = shift;

    unless(defined $ASSERT{$key})
    {
        throw Ambrosia::error::Exception::BadParams 'First usage Ambrosia::Assert without initialize.' unless defined $mode;
        $ASSERT{$key} = lc($mode) eq 'debug';
    }
    return $ASSERT{$key};
}

1;

#########
# MUST WRITE IN MAIN
#########
#END
#{
#    if ( $? == 42 )
#    {
#        storage->foreach('cancel');
#        $? = 1;
#    }
#}

__END__

=head1 NAME

Ambrosia::Assert - adds a validation method in your module.