# 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:
=pod directives shouldn't be over one line long! Ignoring all 5 lines of content
=pod directives shouldn't be over one line long! Ignoring all 4 lines of content
To install Perl6::Pugs, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Perl6::Pugs
CPAN shell
perl -MCPAN -e shell install Perl6::Pugs
For more information on module installation, please visit the detailed CPAN module installation guide.