File Coverage

blib/lib/TAP/Parser/Result/Bailout.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package TAP::Parser::Result::Bailout;
2              
3 32     32   234 use strict;
  32         78  
  32         973  
4 32     32   197 use warnings;
  32         87  
  32         1357  
5              
6 32     32   505 use base 'TAP::Parser::Result';
  32         85  
  32         17491  
7              
8             =head1 NAME
9              
10             TAP::Parser::Result::Bailout - Bailout result token.
11              
12             =head1 VERSION
13              
14             Version 3.40_01
15              
16             =cut
17              
18             our $VERSION = '3.40_01';
19              
20             =head1 DESCRIPTION
21              
22             This is a subclass of L. A token of this class will be
23             returned if a bail out line is encountered.
24              
25             1..5
26             ok 1 - woo hooo!
27             Bail out! Well, so much for "woo hooo!"
28              
29             =head1 OVERRIDDEN METHODS
30              
31             Mainly listed here to shut up the pitiful screams of the pod coverage tests.
32             They keep me awake at night.
33              
34             =over 4
35              
36             =item * C
37              
38             =back
39              
40             =cut
41              
42             ##############################################################################
43              
44             =head2 Instance Methods
45              
46             =head3 C
47              
48             if ( $result->is_bailout ) {
49             my $explanation = $result->explanation;
50             print "We bailed out because ($explanation)";
51             }
52              
53             If, and only if, a token is a bailout token, you can get an "explanation" via
54             this method. The explanation is the text after the mystical "Bail out!" words
55             which appear in the tap output.
56              
57             =cut
58              
59 9     9 1 1148 sub explanation { shift->{bailout} }
60 4     4 1 1675 sub as_string { shift->{bailout} }
61              
62             1;