Commit | Line | Data |
---|---|---|
b965d173 NC |
1 | package TAP::Parser::Result::YAML; |
2 | ||
3 | use strict; | |
4 | ||
5 | use vars qw($VERSION @ISA); | |
6 | use TAP::Parser::Result; | |
7 | @ISA = 'TAP::Parser::Result'; | |
8 | ||
9 | =head1 NAME | |
10 | ||
11 | TAP::Parser::Result::YAML - YAML result token. | |
12 | ||
13 | =head1 VERSION | |
14 | ||
a39e16d8 | 15 | Version 3.17 |
b965d173 NC |
16 | |
17 | =cut | |
18 | ||
a39e16d8 | 19 | $VERSION = '3.17'; |
b965d173 NC |
20 | |
21 | =head1 DESCRIPTION | |
22 | ||
23 | This is a subclass of L<TAP::Parser::Result>. A token of this class will be | |
24 | returned if a YAML block is encountered. | |
25 | ||
26 | 1..1 | |
27 | ok 1 - woo hooo! | |
28 | ||
29 | C<1..1> is the plan. Gotta have a plan. | |
30 | ||
31 | =head1 OVERRIDDEN METHODS | |
32 | ||
33 | Mainly listed here to shut up the pitiful screams of the pod coverage tests. | |
34 | They 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 | ||
56 | Return the parsed YAML data for this result | |
57 | ||
58 | =cut | |
59 | ||
60 | sub data { shift->{data} } | |
61 | ||
62 | 1; |