File Coverage

blib/lib/Test/Power.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	1	1	100.0
total	58	61	95.0

package Test::Power;
use 5.014000;
use strict;
use warnings;

our $VERSION = "0.14";

use parent qw(Exporter);

use Test::More 0.98 ();
use Data::Dumper ();
use Text::Truncate qw(truncstr);
use Devel::CodeObserver 0.11;

use Test::Power::FromLine;

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);

    unless ($retval) {
        for my $pair (@{$result->dump_pairs}) {
            my ($code, $dump) = @$pair;
            $BUILDER->diag("${code}");
            $BUILDER->diag("   => " . truncstr($dump, $DUMP_CUTOFF, '...'));
        }
    }
}


1;
__END__