TAP::Parser::Result::Bailout - Bailout result token.

Test-Harness documentation Contained in the Test-Harness distribution.

Index

Code Index:

NAME

Top

TAP::Parser::Result::Bailout - Bailout result token.

VERSION

Top

Version 3.23

DESCRIPTION

Top

This is a subclass of TAP::Parser::Result. A token of this class will be returned if a bail out line is encountered.

 1..5
 ok 1 - woo hooo!
 Bail out! Well, so much for "woo hooo!"

OVERRIDDEN METHODS

Top

Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night.

* as_string

Instance Methods

explanation

  if ( $result->is_bailout ) {
      my $explanation = $result->explanation;
      print "We bailed out because ($explanation)";
  }

If, and only if, a token is a bailout token, you can get an "explanation" via this method. The explanation is the text after the mystical "Bail out!" words which appear in the tap output.

Test-Harness documentation Contained in the Test-Harness distribution. 
package TAP::Parser::Result::Bailout;

use strict;

use vars qw($VERSION @ISA);
use TAP::Parser::Result;
@ISA = 'TAP::Parser::Result';


$VERSION = '3.23';


##############################################################################


sub explanation { shift->{bailout} }
sub as_string   { shift->{bailout} }

1;