#!/usr/bin/perl --
use strict; use warnings;
use XML::Rules;
use Data::Dump qw/ dd /;

my $ta = XML::Rules->new(
    qw/ stripspaces 8 /,
    rules => [
        _default => 'raw',
    ],
);

my $da = XML::Rules->new(
    qw/ stripspaces 8 /,
    rules => [
        a        => 'content',
        _default => 'raw',
    ],
);

dd $ta->parse(  q(<a><b type="1"/><b type="2"/><c/><b type="3"/></a>) );
dd $da->parse(  q(<a><b type="1"/><b type="2"/><c/><b type="3"/></a>) );
dd $da->parse(  q(<a><b type="1"/><b type="2"/><c/><b type="3">tada</b></a>) );
__END__
[
  "a",
  {
    _content => [
      ["b", { type => 1 }],
      ["b", { type => 2 }],
      ["c", {}],
      ["b", { type => 3 }],
    ],
  },
]
{
  a => [
         ["b", { type => 1 }],
         ["b", { type => 2 }],
         ["c", {}],
         ["b", { type => 3 }],
       ],
}
{
  a => [
         ["b", { type => 1 }],
         ["b", { type => 2 }],
         ["c", {}],
         ["b", { _content => "tada", type => 3 }],
       ],
}