File Coverage

blib/lib/Test/More/Unlike.pm

Criterion	Covered	Total	%
statement	24	29	82.7
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	31	39	79.4

package Test::More::Unlike;
use strict;
use warnings;
use Test::More qw//;
use Text::MatchedPosition;

our $VERSION = '0.03';

sub import {
    my $class   = shift;
    my $package = caller(0);

    {
        no strict 'refs'; ## no critic
        no warnings 'redefine';
        *{"$package\::unlike"} = \&{ __PACKAGE__ . '::_unlike' };
    }
}

sub _unlike ($$;$) { ## no critic (Subroutines::ProhibitSubroutinePrototypes)
    my $tb = Test::More->builder;
    my $ret = $tb->unlike(@_);
    return $ret if $ret eq '1';

    my $pos = Text::MatchedPosition->new(@_);
    return $tb->diag( sprintf <<'DIAGNOSTIC', $pos->line, $pos->offset );
          matched at line: %d, offset: %d
DIAGNOSTIC
}

1;

__END__