1 package TAP::Parser::Result::Bailout;
5 use vars qw($VERSION @ISA);
6 use TAP::Parser::Result;
7 @ISA = 'TAP::Parser::Result';
11 TAP::Parser::Result::Bailout - Bailout result token.
23 This is a subclass of L<TAP::Parser::Result>. A token of this class will be
24 returned if a bail out line is encountered.
28 Bail out! Well, so much for "woo hooo!"
30 =head1 OVERRIDDEN METHODS
32 Mainly listed here to shut up the pitiful screams of the pod coverage tests.
33 They keep me awake at night.
43 ##############################################################################
45 =head2 Instance Methods
49 if ( $result->is_bailout ) {
50 my $explanation = $result->explanation;
51 print "We bailed out because ($explanation)";
54 If, and only if, a token is a bailout token, you can get an "explanation" via
55 this method. The explanation is the text after the mystical "Bail out!" words
56 which appear in the tap output.
60 sub explanation { shift->{bailout} }
61 sub as_string { shift->{bailout} }