Help for this page

Select Code to Download

Select or download this

my @rules = (
  AM_Key => sub { push @{$_[4]->{pad}{am_keys}}, $_[1]{_content}; retu
+rn },
...
  _default => undef,
);
my $xr = XML::Rules->new( rules => \@rules );