local-lib5/lib/perl5/TAP/Parser/Result/Version.pm

   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
  11 TAP::Parser::Result::Version - TAP syntax version token.
  12
  13 =head1 VERSION
  14
  15 Version 3.17
  16
  17 =cut
  18
  19 $VERSION = '3.17';
  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
  26  TAP version 13
  27  ok 1
  28  not ok 2
  29
  30 The first version of TAP to include an explicit version number is 13.
  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;