if (%depends) {
	print STDERR "\nUnsatisfied dependencies!\n";
	foreach my $missing (keys %depends) {
		print "Missing group '$missing' is a member of:\n";
		foreach my $failed (@{$depends{$missing}}) {
			print "  $failed->{':name'}{_content}\n";
		}
	}
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

  'name' => 'content',

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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