1package TAP::Parser::Result::Version; 2 3use strict; 4 5use vars qw($VERSION @ISA); 6use TAP::Parser::Result; 7@ISA = 'TAP::Parser::Result'; 8 9=head1 NAME 10 11TAP::Parser::Result::Version - TAP syntax version token. 12 13=head1 VERSION 14 15Version 3.17 16 17=cut 18 19$VERSION = '3.17'; 20 21=head1 DESCRIPTION 22 23This is a subclass of L<TAP::Parser::Result>. A token of this class will be 24returned if a version line is encountered. 25 26 TAP version 13 27 ok 1 28 not ok 2 29 30The first version of TAP to include an explicit version number is 13. 31 32=head1 OVERRIDDEN METHODS 33 34Mainly listed here to shut up the pitiful screams of the pod coverage tests. 35They 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 57This is merely a synonym for C<as_string>. 58 59=cut 60 61sub version { shift->{version} } 62 631; 64