File Coverage

blib/lib/XML/Invisible/Receiver.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	16	20	80.0
condition	5	6	83.3
subroutine	5	5	100.0
pod	1	1	100.0
total	61	67	91.0

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)};
  die "Can't have both attribute (+) and flatten (-) on same node"
    if $attr and $flatten;
  if ($flatten) {
    return $param;
  }
  $param = [ $param ] if ref $param ne 'ARRAY';
  $param = $self->flatten($param);
  my %ret = (
    nodename => $rule,
    type => '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}'";
    }
  }
  $ret{type} = 'attr' if $attr;
  delete $ret{type} if $ret{type} eq 'element';
  \%ret;
}

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

1;

__END__