Help for this page

Select Code to Download


  1. or download this
    my $bar = ${exists $foo{'bar'} or \undef };
  2. or download this
    my $bar = $foo{'bar'};
  3. or download this
    my $bar = $foo{'bar'}{'baz'};
  4. or download this
    my $bar = ${exist $foo{'bar'}{'baz'} or \undef};
  5. or download this
    my $qux = \%foo;
$qux = exists $qux->{$_} or (undef $qux, last)
    for qw(bar baz quux qux);