1 package TAP::Parser::Result::Version;
5 use vars qw($VERSION @ISA);
6 use TAP::Parser::Result;
7 @ISA = 'TAP::Parser::Result';
11 TAP::Parser::Result::Version - TAP version result token.
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.
30 The first version of TAP to include an explicit version number is 4.
32 =head1 OVERRIDDEN METHODS
34 Mainly listed here to shut up the pitiful screams of the pod coverage tests.
35 They keep me awake at night.
47 ##############################################################################
49 =head2 Instance Methods
53 if ( $result->is_version ) {
54 print $result->version;
57 This is merely a synonym for C<as_string>.
61 sub version { shift->{version} }