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