File Coverage

blib/lib/XML/Invisible/Receiver.pm

Criterion	Covered	Total	%
statement	31	32	100.0
branch	15	18	83.3
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	55	59	94.9

package XML::Invisible::Receiver;

use strict;
use warnings;
use base 'Pegex::Receiver';

sub gotrule {
  my $self = shift;
  my $param = (@_ == 1) ? $_[0] : [ @_ ];
  return unless defined $param;
  my $parser = $self->{parser};
  my $rule = $parser->{rule};
  my $parentrule = $parser->{parent};
  my ($attr, $flatten) = @{$parentrule}{qw(-wrap -flat)};
  return $param if $flatten;
  $param = [ $param ] if ref $param ne 'ARRAY';
  $param = $self->flatten($param);
  my %ret = (nodename => $rule, type => ($attr ? 'attr' : 'element'));
  for (@$param) {
    if (!ref $_ or !$_->{type}) {
      push @{ $ret{children} }, $_;
    } elsif ($_->{type} eq 'attr') {
      $ret{attributes}{$_->{nodename}} = join '', _get_values($_);
    } else {
      die "Unknown entity type '$_->{type}'"; # uncoverable statement
    }
  }
  delete $ret{type} if $ret{type} eq 'element';
  \%ret;
}

sub _get_values {
  my ($node) = @_;
  map ref($_) ? _get_values($_) : $_, @{ $node->{children} };
}

1;

__END__