Lines Matching refs:self
181 my $self = shift;
183 print $fh $self->as_string, "\n"
188 my $is_plan = $self->is_plan;
189 my $tests_planned = $is_plan && $self->tests_planned;
190 my $is_test = $self->is_test;
191 my $is_ok = $is_test && $self->is_ok;
194 if ($self->is_unknown) {
199 if ($self->as_string =~ m/^$indent 1\.\.(\d+)/);
201 if ($self->as_string =~ m/^$indent(not )?ok /);
210 print "\n".$self->as_string
214 } elsif ($self->as_string ne "") {
216 $output_buffer .= "\n".$self->as_string;
224 my $self = shift;
227 if (scalar $self->failed > 0 && @failure_output) {
271 my $self = shift;
278 if ($self->{switches}) {
279 push @switches, $self->{switches};
281 if ($self->{lib}) {
282 foreach (@{$self->{lib}}) {