Select Code to Download

if (%depends) {
    print STDERR "\nUnsatisfied dependencies!\n";
...
        }
    }
}

<root>
  <sub>value</sub>
  <some><x>45</x><y>77</y></some>
</root>

root(
  sub('value'),
  some( x(45), y(77))
)

  'name' => sub { return 'name' => $_[1]->{_content}},
or
...
    my ($tag,$attr) = @_;
    return 'name' => $attr->{_content}
  },

  'name' => 'content',

  <parent x="1"><name>jenda</name></parent>
and
  <parent x="1" name="jenda"/>

<parent x="1">blah <name>jenda</name> blah</parent>

{ x => "1", ":name" => {_content => "jenda"},
  _content => [ "blah ", ["name" => {_content => "jenda"}], " blah"] 
}