Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict; use warnings;
my $getToysResults = {
...
ArrayOfToy=HASH(0x9b506c) at - line 28.
ARRAY(0x9b50bc) at - line 29.
Not a HASH reference at - line 30.
  2. or download this
    use Data::Diver qw/ Dive /;
my $toyArrRef = Dive $getToysResults, qw/ Toys Toy /;
...
__END__
toybox
shelf