File Coverage

blib/lib/TAP/Parser/Result/Pragma.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package TAP::Parser::Result::Pragma;
2              
3 32     32   241 use strict;
  32         84  
  32         996  
4 32     32   213 use warnings;
  32         85  
  32         1190  
5              
6 32     32   239 use base 'TAP::Parser::Result';
  32         82  
  32         4974  
7              
8             =head1 NAME
9              
10             TAP::Parser::Result::Pragma - TAP pragma 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 pragma is encountered.
24              
25             TAP version 13
26             pragma +strict, -foo
27              
28             Pragmas are only supported from TAP version 13 onwards.
29              
30             =head1 OVERRIDDEN METHODS
31              
32             Mainly listed here to shut up the pitiful screams of the pod coverage tests.
33             They keep me awake at night.
34              
35             =over 4
36              
37             =item * C
38              
39             =item * C
40              
41             =back
42              
43             =cut
44              
45             ##############################################################################
46              
47             =head2 Instance Methods
48              
49             =head3 C
50              
51             if ( $result->is_pragma ) {
52             @pragmas = $result->pragmas;
53             }
54              
55             =cut
56              
57             sub pragmas {
58 8     8 1 2018 my @pragmas = @{ shift->{pragmas} };
  8         32  
59 8 100       75 return wantarray ? @pragmas : \@pragmas;
60             }
61              
62             1;