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