File Coverage

blib/lib/TAP/Parser/Result/Version.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package TAP::Parser::Result::Version;
2              
3 32     32   230 use strict;
  32         82  
  32         2081  
4 32     32   213 use warnings;
  32         74  
  32         1043  
5              
6 32     32   202 use base 'TAP::Parser::Result';
  32         85  
  32         4939  
7              
8             =head1 NAME
9              
10             TAP::Parser::Result::Version - TAP syntax version 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 version line is encountered.
24              
25             TAP version 13
26             ok 1
27             not ok 2
28              
29             The first version of TAP to include an explicit version number is 13.
30              
31             =head1 OVERRIDDEN METHODS
32              
33             Mainly listed here to shut up the pitiful screams of the pod coverage tests.
34             They keep me awake at night.
35              
36             =over 4
37              
38             =item * C
39              
40             =item * C
41              
42             =back
43              
44             =cut
45              
46             ##############################################################################
47              
48             =head2 Instance Methods
49              
50             =head3 C
51              
52             if ( $result->is_version ) {
53             print $result->version;
54             }
55              
56             This is merely a synonym for C.
57              
58             =cut
59              
60 28     28 1 3121 sub version { shift->{version} }
61              
62             1;