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   109 use strict;
  32         39  
  32         775  
4 32     32   103 use warnings;
  32         39  
  32         834  
5              
6 32     32   222 use base 'TAP::Parser::Result';
  32         45  
  32         12948  
7              
8             =head1 NAME
9              
10             TAP::Parser::Result::Bailout - Bailout result token.
11              
12             =head1 VERSION
13              
14             Version 3.39
15              
16             =cut
17              
18             our $VERSION = '3.39';
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 747 sub explanation { shift->{bailout} }
60 4     4 1 931 sub as_string { shift->{bailout} }
61              
62             1;