Lines Matching refs:regex
580 $Test->like($this, qr/$regex/, $name);
581 $Test->like($this, '/$regex/', $name);
583 Like Test::More's like(). Checks if $this matches the given $regex.
589 $Test->unlike($this, qr/$regex/, $name);
590 $Test->unlike($this, '/$regex/', $name);
593 given $regex.
598 my($self, $this, $regex, $name) = @_;
601 $self->_regex_ok($this, $regex, '=~', $name);
605 my($self, $this, $regex, $name) = @_;
608 $self->_regex_ok($this, $regex, '!~', $name);
613 $Test->maybe_regex(qr/$regex/);
614 $Test->maybe_regex('/$regex/');
629 my ($self, $this, $regex, $name) = @_;
630 my $usable_regex = $self->maybe_regex($regex);
631 die "expecting regex, found '$regex'\n"
640 my ($self, $regex) = @_;
643 return $usable_regex unless defined $regex;
648 if( ref $regex eq 'Regexp' ) {
649 $usable_regex = $regex;
652 elsif( ($re, $opts) = $regex =~ m{^ /(.*)/ (\w*) $ }sx or
653 (undef, $re, $opts) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx
663 my($self, $this, $regex, $cmp, $name) = @_;
668 my $usable_regex = $self->maybe_regex($regex);
671 $self->diag(" '$regex' doesn't look much like a regex to me.");
685 $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $regex);