File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	3	66.6
total	28	30	93.3

package Test::Unit::Assertion::Regexp;

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__