cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm

   1 package TAP::Parser::Result::Version;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'TAP::Parser::Result';
   7
   8 =head1 NAME
   9
  10 TAP::Parser::Result::Version - TAP syntax version token.
  11
  12 =head1 VERSION
  13
  14 Version 3.36
  15
  16 =cut
  17
  18 our $VERSION = '3.36_01';
  19
  20 =head1 DESCRIPTION
  21
  22 This is a subclass of L<TAP::Parser::Result>.  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<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
  56 This is merely a synonym for C<as_string>.
  57
  58 =cut
  59
  60 sub version { shift->{version} }
  61
  62 1;