File Coverage

blib/lib/YAML/LibYAML/API.pm
Criterion Covered Total %
statement 42 43 97.6
branch 12 12 100.0
condition 4 6 66.6
subroutine 11 12 91.6
pod 0 7 0.0
total 69 80 86.2


line stmt bran cond sub pod time code
1             # ABSTRACT: Wrapper around the C libyaml library
2             package YAML::LibYAML::API;
3 4     4   321220 use strict;
  4         46  
  4         117  
4 4     4   21 use warnings;
  4         8  
  4         202  
5              
6             our $VERSION = '0.010'; # VERSION
7              
8 4         2809 use YAML::PP::Common qw/
9             YAML_ANY_SCALAR_STYLE YAML_PLAIN_SCALAR_STYLE
10             YAML_SINGLE_QUOTED_SCALAR_STYLE YAML_DOUBLE_QUOTED_SCALAR_STYLE
11             YAML_LITERAL_SCALAR_STYLE YAML_FOLDED_SCALAR_STYLE
12             YAML_QUOTED_SCALAR_STYLE
13              
14             YAML_ANY_SEQUENCE_STYLE
15             YAML_BLOCK_SEQUENCE_STYLE YAML_FLOW_SEQUENCE_STYLE
16              
17             YAML_ANY_MAPPING_STYLE
18             YAML_BLOCK_MAPPING_STYLE YAML_FLOW_MAPPING_STYLE
19 4     4   1854 /;
  4         6671  
20              
21             my @scalar_styles = (
22             YAML_ANY_SCALAR_STYLE,
23             YAML_PLAIN_SCALAR_STYLE,
24             YAML_SINGLE_QUOTED_SCALAR_STYLE,
25             YAML_DOUBLE_QUOTED_SCALAR_STYLE,
26             YAML_LITERAL_SCALAR_STYLE,
27             YAML_FOLDED_SCALAR_STYLE,
28             );
29             my %scalar_styles;
30             @scalar_styles{ @scalar_styles } = 0 .. $#scalar_styles;
31              
32             my @sequence_styles = (
33             YAML_ANY_SEQUENCE_STYLE,
34             YAML_BLOCK_SEQUENCE_STYLE,
35             YAML_FLOW_SEQUENCE_STYLE,
36             );
37             my %sequence_styles;
38             @sequence_styles{ @sequence_styles } = 0 .. $#sequence_styles;
39              
40             my @mapping_styles = (
41             YAML_ANY_MAPPING_STYLE,
42             YAML_BLOCK_MAPPING_STYLE,
43             YAML_FLOW_MAPPING_STYLE,
44             );
45             my %mapping_styles;
46             @mapping_styles{ @mapping_styles } = 0 .. @mapping_styles;
47              
48             # deprecated
49             sub parse_events {
50 0     0 0 0 parse_string_events(@_);
51             }
52              
53             sub parse_string_events {
54 6     6 0 6920 my ($yaml, $events) = @_;
55 6         995 YAML::LibYAML::API::XS::parse_string_events($yaml, $events);
56 6         32 _numeric_to_string($events);
57             }
58              
59             sub parse_file_events {
60 1     1 0 19498 my ($file, $events) = @_;
61 1         160 YAML::LibYAML::API::XS::parse_file_events($file, $events);
62 1         7 _numeric_to_string($events);
63             }
64              
65             sub parse_filehandle_events {
66 1     1 0 4587 my ($fh, $events) = @_;
67 1         85 YAML::LibYAML::API::XS::parse_filehandle_events($fh, $events);
68 1         6 _numeric_to_string($events);
69             }
70              
71             sub emit_string_events {
72 8     8 0 16062 my ($events, $options) = @_;
73 8   100     43 $options ||= {};
74 8         24 _string_to_numeric($events);
75 8         610 return YAML::LibYAML::API::XS::emit_string_events($events, $options);
76             }
77              
78             sub emit_file_events {
79 1     1 0 2413 my ($file, $events, $options) = @_;
80 1   50     8 $options ||= {};
81 1         4 _string_to_numeric($events);
82 1         235 return YAML::LibYAML::API::XS::emit_file_events($file, $events, $options);
83             }
84              
85             sub emit_filehandle_events {
86 1     1 0 771 my ($fh, $events, $options) = @_;
87 1   50     9 $options ||= {};
88 1         4 _string_to_numeric($events);
89 1         48 return YAML::LibYAML::API::XS::emit_filehandle_events($fh, $events, $options);
90             }
91              
92             sub _numeric_to_string {
93 8     8   25 my ($events) = @_;
94 8         32 for my $event (@$events) {
95 127 100       418 if ($event->{name} eq 'scalar_event') {
    100          
    100          
96 45         87 $event->{style} = $scalar_styles[ $event->{style} ];
97             }
98             elsif ($event->{name} eq 'sequence_start_event') {
99 11         47 $event->{style} = $sequence_styles[ $event->{style} ];
100             }
101             elsif ($event->{name} eq 'mapping_start_event') {
102 11         33 $event->{style} = $mapping_styles[ $event->{style} ];
103             }
104             }
105             }
106              
107             sub _string_to_numeric {
108 10     10   21 my ($events) = @_;
109 10         22 for my $event (@$events) {
110 145 100       348 if ($event->{name} eq 'scalar_event') {
    100          
    100          
111 49         73 $event->{style} = $scalar_styles{ $event->{style} };
112             }
113             elsif ($event->{name} eq 'sequence_start_event') {
114 12         33 $event->{style} = $sequence_styles{ $event->{style} };
115             }
116             elsif ($event->{name} eq 'mapping_start_event') {
117 13         31 $event->{style} = $mapping_styles{ $event->{style} };
118             }
119             }
120             }
121              
122             1;
123              
124             __END__