Lines Matching defs:wanted
508 push @{ $self->{wanted} }, ref $check ? $check : "$check\n";
539 my @checks = @{ $self->{wanted} };
557 my $wanted = join '', @{ $self->wanted };
574 $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
577 my $start = $green . substr( $wanted, 0, $char );
579 my $wantedend = $red . substr( $wanted, $char ) . $reset;
590 $wanted = $start . $wantedend;
595 my @wanted = split "\n", $wanted;
598 $wanted = "";
600 while (@got || @wanted) {
602 my $w = shift @wanted || "";
618 $wanted = $wanted ? "$wanted\n$w" : $w;
621 return "$type is:\n" . "$got\nnot:\n$wanted\nas expected";
632 wanted => [],
641 sub wanted {
643 return $self->{wanted};