Help for this page

Select Code to Download


  1. or download this
    '/shipment/box' => sub { _move(@_); 1; }
  2. or download this
    # '/shipment/box' => sub { _move(@_); 1; } #wrong
# to
'/shipment/box' => \&_move,
  3. or download this
    sub _move {
    unless ($_[1]->descendants('slip')){
...
    }
    foreach my $descendant ...
  4. or download this
    #!/usr/bin/perl
# use 5.020; unneeded aside from the say
...
  <slip _TYPE="produce">peach</slip>
</shipment>