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::YAML; use strict; use warnings; use base 'TAP::Parser::Result'; =head1 NAME TAP::Parser::Result::YAML - YAML 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 YAML block is encountered. 1..1 ok 1 - woo hooo! C<1..1> is the plan. Gotta have a plan. =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<data> if ( $result->is_yaml ) { print $result->data; } Return the parsed YAML data for this result =cut sub data { shift->{data} } 1;
Save