File Coverage

blib/lib/Test/Unit/Assertion.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	2	3	66.6
total	24	29	82.7

package Test::Unit::Assertion;
BEGIN {
  $Test::Unit::Assertion::VERSION = '0.25_1325'; # added by dist-tools/SetVersion.pl
}

use strict;

use Carp;
use Test::Unit::Failure;

use overload '""' => 'to_string';

sub fail {
    my $self = shift;
    my($asserter, $file, $line) = caller(2); # We're always called from
                                             # within an Assertion...
    Test::Unit::Failure->throw(-object => $self,
                               -file   => $file,
                               -line   => $line,
                               -text   => join '', @_);
}

sub do_assertion {
    Carp::croak("$_[0] forgot to override do_assertion");
}

sub new {
    Carp::croak("$_[0] forgot to override new");
}

1;

__END__