# get it in array context and # check that our arrays are equal my @children = $tree.get_all_children(); ok eq_array(\@children, [ $sub_tree, $sub_tree_2, $sub_tree_3, $sub_tree_4 ]);
# check that the values from both # contexts are equal to one another ok eq_array($children, \@children);
# now check that the siblings of all the # sub_trees are the same as the children foreach my $_sub_tree (@children) { # test siblings in item context my $siblings = $sub_tree.get_all_siblings(); ok eq_array($children, $siblings); # and now in array context my @siblings = $sub_tree.get_all_siblings(); ok eq_array($children, \@siblings); }
10 POD Errors
The following errors were encountered while parsing the POD:
- Around line 227:
=pod directives shouldn't be over one line long! Ignoring all 5 lines of content
- Around line 287:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 310:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 348:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 371:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 430:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 483:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 544:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 606:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
- Around line 659:
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content