/
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/Pragma.pm
(946B)
package TAP::Parser::Result::Pragma; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::Pragma - TAP pragma 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 pragma is encountered. TAP version 13 pragma +strict, -foo Pragmas are only supported from TAP version 13 onwards. =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<pragmas> if ( $result->is_pragma ) { @pragmas = $result->pragmas; } =cut sub pragmas { my @pragmas = @{ shift->{pragmas} }; return wantarray ? @pragmas : \@pragmas; } 1;
Save
cmd:
run