view release on metacpan or  search on metacpan

lib/Test/Power.pm  view on Meta::CPAN

our @EXPORT = qw(expect);

use constant {
    RESULT_VALUE => 0,
    RESULT_OPINDEX => 1,
};

our $DUMP_CUTOFF = 80;

sub expect(&;$) {
    my ($code, $description) = @_;

    my ($package, $filename, $line_no, $line) = Test::Power::FromLine::inspect_line(0);
    $description ||= "L$line_no" . (length($line) ? " : $line" : '');

    my $BUILDER = Test::More->builder;

    my ($retval, $result) = Devel::CodeObserver->new->call($code);

    $BUILDER->ok($retval, $description);