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