Improve emitter

perlpunk · Jan 26, 2020 · def51cf · def51cf
1 parent 34bc7da
commit def51cf
Show file tree

Hide file tree

Showing 7 changed files with 194 additions and 174 deletions.
diff --git a/bin/yamlpp5-parse-emit b/bin/yamlpp5-parse-emit
@@ -48,7 +48,7 @@ for my $event (@events) {
     my $type = $event->{name};
     my $str = YAML::PP::Common::event_to_test_suite($event);
     print "$str\n" if $verbose;
-    if ($type eq 'sequence_start_event' or $type eq 'mapping_end_event') {
+    if ($type eq 'sequence_start_event' or $type eq 'mapping_start_event') {
         delete $event->{style};
     }
     $emitter->$type($event);

diff --git a/lib/YAML/PP/Dumper.pm b/lib/YAML/PP/Dumper.pm
@@ -138,6 +138,10 @@ sub emit_node {
     }
     if ($type eq 'mapping') {
         my $style = YAML_BLOCK_MAPPING_STYLE;
+        # TODO
+        if ($node->{items} and @{ $node->{items} } == 0) {
+#            $style = YAML_FLOW_MAPPING_STYLE;
+        }
         $self->emitter->mapping_start_event({
             anchor => $node->{anchor},
             style => $style,
@@ -151,6 +155,9 @@ sub emit_node {
     }
     if ($type eq 'sequence') {
         my $style = YAML_BLOCK_SEQUENCE_STYLE;
+        if (@{ $node->{items} } == 0) {
+#            $style = YAML_FLOW_SEQUENCE_STYLE;
+        }
         $self->emitter->sequence_start_event({
             anchor => $node->{anchor},
             style => $style,