1package TAP::Parser::Result::YAML; 2 3use strict; 4 5use vars qw($VERSION @ISA); 6use TAP::Parser::Result; 7@ISA = 'TAP::Parser::Result'; 8 9=head1 NAME 10 11TAP::Parser::Result::YAML - YAML result token. 12 13=head1 VERSION 14 15Version 3.17 16 17=cut 18 19$VERSION = '3.17'; 20 21=head1 DESCRIPTION 22 23This is a subclass of L<TAP::Parser::Result>. A token of this class will be 24returned if a YAML block is encountered. 25 26 1..1 27 ok 1 - woo hooo! 28 29C<1..1> is the plan. Gotta have a plan. 30 31=head1 OVERRIDDEN METHODS 32 33Mainly listed here to shut up the pitiful screams of the pod coverage tests. 34They keep me awake at night. 35 36=over 4 37 38=item * C<as_string> 39 40=item * C<raw> 41 42=back 43 44=cut 45 46############################################################################## 47 48=head2 Instance Methods 49 50=head3 C<data> 51 52 if ( $result->is_yaml ) { 53 print $result->data; 54 } 55 56Return the parsed YAML data for this result 57 58=cut 59 60sub data { shift->{data} } 61 621; 63