File Coverage

blib/lib/Test/Unit/Assertion/Regexp.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	3	66.6
total	31	32	96.8

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

use strict;
use Test::Unit::Assertion;
use base qw/Test::Unit::Assertion/;

sub new {
    my $class = shift;
    my $regex = shift;

    bless \$regex, $class;
}

sub do_assertion {
    my $self = shift;
    my $target = shift;
    $target =~ $$self or
        $self->fail(@_ ? $_[0] : "'$target' did not match /$$self/");
}

sub to_string {
    my $self = shift;
    "/$$self/ regexp assertion";
}

1;

__END__