Select Code to Download

Select or download this

    ...
    <Persons>
...
      <Person>...</Person>
    </Persons>
    ...

Select or download this

my $persons = $parent->{Persons};

...
    : !$persons->{Person}      ? ()
    : !ref($persons->{Person}) ? $persons->{Person}
    :                            @{ $persons->{Person} };

Select or download this

GroupTags  => { Persons => 'Person' },
ForceArray => [qw( Person )],

my @persons = $parent->{Persons} ? @{ $parent->{Persons} } : ();

Select or download this

my @persons = $parent->findnodes('Persons/Person');

Select or download this

    ...
    <Person>
...
      ...
    </Person>
    ...

Select or download this

my $country =
      !defined($person->{Country}) ? undef
    : !ref($person->{Country})     ? $person->{Country}
    :                                $person->{Country}{content};

Select or download this

my $country = $person->{Country} && $person->{Country}{content}

Select or download this

my $country = $person->findvalue('Country');