NAME

Devel::Assert - assertions for Perl >= 5.14

SYNOPSIS

use Devel::Assert; # release mode, won't perform checks

assert(3 < 2); 

use Devel::Assert 'on';

assert(3 < 2); # oops, check your math

USAGE

use Devel::Assert; # import 'assert' function, but doesn't enable it
use Devel::Assert 'on'; # import 'assert' function and enable it

use Devel::Assert 'global'; # import 'assert' function and enable it in all later 'use Devel::Assert' imports
use Devel::Assert::Global; # the same, can be used as perl -MDevel::Assert::Global your_program.pl

use Devel::Assert 'off'; # import 'assert' function, but doesn't enable it, even when in 'global' mode

DESCRIPTION

This module provides you with a C-like assert() function. And, like in C, it only is compiled in debug mode - it's completely removed together with it's arguments at compile time in release mode. That's useful to force functions' contracts during development without sacrificing production performance.

Think of an assert() being a test, but right inside your code:

sub get_url {
    my ($self, $url, $cb) = @_;

    assert length $url;
    assert(ref($cb) eq 'CODE');

    ...
}

Failed assertions are reported by confess with failed test code embedded:

Assertion 'ref $cb eq 'CODE'' failed at ...

This module doesn't use source filters or any other form of source text parsing, but instead relies on the generated optree analysis and manipulation.

CHANGES FROM 0.04

This version significantly differs from 0.04 release. The main reason behind such radical change was to get rid of the Devel::Declare dependency and to pass all the parsing work to Perl itself (instead of creating own statement parser).

SEE ALSO

assertions - uses code attributes

Carp::Assert - requires annoying 'if DEBUG' suffix

PerlX::Assert - based on Devel::Declare

AUTHOR

Sergey Aleynikov <randir@cpan.org>

COPYRIGHT

Copyright (C) 2009, 2015 Sergey Aleynikov

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.