Commit | Line | Data |
b965d173 |
1 | package TAP::Parser::Result::Version; |
2 | |
3 | use strict; |
4 | |
5 | use vars qw($VERSION @ISA); |
6 | use TAP::Parser::Result; |
7 | @ISA = 'TAP::Parser::Result'; |
8 | |
9 | =head1 NAME |
10 | |
2a7f4b9b |
11 | TAP::Parser::Result::Version - TAP syntax version token. |
b965d173 |
12 | |
13 | =head1 VERSION |
14 | |
27fc0087 |
15 | Version 3.14 |
b965d173 |
16 | |
17 | =cut |
18 | |
27fc0087 |
19 | $VERSION = '3.14'; |
b965d173 |
20 | |
21 | =head1 DESCRIPTION |
22 | |
23 | This is a subclass of L<TAP::Parser::Result>. A token of this class will be |
24 | returned if a version line is encountered. |
25 | |
2a7f4b9b |
26 | TAP version 13 |
b965d173 |
27 | ok 1 |
28 | not ok 2 |
29 | |
2a7f4b9b |
30 | The first version of TAP to include an explicit version number is 13. |
b965d173 |
31 | |
32 | =head1 OVERRIDDEN METHODS |
33 | |
34 | Mainly listed here to shut up the pitiful screams of the pod coverage tests. |
35 | They keep me awake at night. |
36 | |
37 | =over 4 |
38 | |
39 | =item * C<as_string> |
40 | |
41 | =item * C<raw> |
42 | |
43 | =back |
44 | |
45 | =cut |
46 | |
47 | ############################################################################## |
48 | |
49 | =head2 Instance Methods |
50 | |
51 | =head3 C<version> |
52 | |
53 | if ( $result->is_version ) { |
54 | print $result->version; |
55 | } |
56 | |
57 | This is merely a synonym for C<as_string>. |
58 | |
59 | =cut |
60 | |
61 | sub version { shift->{version} } |
62 | |
63 | 1; |