Help for this page

Select Code to Download


  1. or download this
    my $datacopy = $MySafe::data;
bless $datacopy->{person}, 'Person';
  2. or download this
    bless $datacopy->{person}, ref $datacopy->{person};
  3. or download this
    ref($_) and bless($_, ref $_) for values %$datacopy;
  4. or download this
    $string = <<'EOM';
{
    'person' => bless( [
...
my $data = Safe->new()->reval($string);

ref($_) and bless($_, ref $_) for values %$data;