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;