/
usr
/
share
/
perl5
/
vendor_perl
/
TAP
/
Parser
/
Result
/
/usr/share/perl5/vendor_perl/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/perl5/vendor_perl/TAP/Parser/Result/Comment.pm
(986B)
package TAP::Parser::Result::Comment; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Comment - Comment result token. =head1 VERSION Version 3.42 =cut our $VERSION = '3.42'; =head1 DESCRIPTION This is a subclass of L<TAP::Parser::Result>. A token of this class will be returned if a comment line is encountered. 1..1 ok 1 - woo hooo! # this is a comment =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> Note that this method merely returns the comment preceded by a '# '. =back =cut ############################################################################## =head2 Instance Methods =head3 C<comment> if ( $result->is_comment ) { my $comment = $result->comment; print "I have something to say: $comment"; } =cut sub comment { shift->{comment} } sub as_string { shift->{raw} } 1;
Save
cmd:
run