Help for this page

Select Code to Download


  1. or download this
    package Foo;
sub new { bless {}, shift }
...
my $isa_foo = sub { UNIVERSAL::isa(shift, 'Foo') };

print join ',', map_recursive(\@list, $isa_foo);
  2. or download this
    my @list2 = ( {a => 'm'}, { 1 => 55}, { Foo => 'Bar' });
my $h = sub { UNIVERSAL::isa(shift, 'HASH') };

print join ',', map_recursive (\@list2, $h);