/
usr
/
share
/
perl
/
5.34.0
/
TAP
/
Parser
/
Result
/
/usr/share/perl/5.34.0/TAP/Parser/Result
mkdir
upload
Name
Size
Mode
Actions
Bailout.pm
1148
0644
edit
dl
rm
Comment.pm
986
0644
edit
dl
rm
Plan.pm
2048
0644
edit
dl
rm
Pragma.pm
946
0644
edit
dl
rm
Test.pm
6078
0644
edit
dl
rm
Unknown.pm
734
0644
edit
dl
rm
Version.pm
946
0644
edit
dl
rm
YAML.pm
880
0644
edit
dl
rm
Edit:
/usr/share/perl/5.34.0/TAP/Parser/Result/Version.pm
(946B)
package TAP::Parser::Result::Version; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Version - TAP syntax version token. =head1 VERSION Version 3.43 =cut our $VERSION = '3.43'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a version line is encountered. TAP version 13 ok 1 not ok 2 The first version of TAP to include an explicit version number is 13. =head1 OVERRIDDEN METHODS Mainly listed here to shut up the pitiful screams of the pod coverage tests. They keep me awake at night. =over 4 =item * C<as_string> =item * C<raw> =back =cut ############################################################################## =head2 Instance Methods =head3 C<version> if ( $result->is_version ) { print $result->version; } This is merely a synonym for C<as_string>. =cut sub version { shift->{version} } 1;
Save
cmd:
run