Help for this page

Select Code to Download


  1. or download this
    sub deep_exists
{
...

    return undef;
}
  2. or download this
    sub EXISTS   {
  my ($a,$key) = (shift, shift);
...
  $_[0][0]{$key} = $res[0];     # Store data
  return 1
}
  3. or download this
    The structure of the tied() data is an array reference with elements

...
  2:  FETCH  function
  3:  EXISTS function
  4:  $data
  4. or download this
    my @res = $a->[3]($key,$a->[4]);
$_[0][1]{$key} = 0, return unless @res;