#!/usr/bin/perl

use strict;
use Data::Dumper;
use Safe;

package Md;
sub new {bless {'plop' => 'coin'}, $_[0]};
sub param {return $_[0]->{$_[1]};}

package main;

#Object and dump creation
my $md = Md->new();
my $dump = Dumper($md);

#'eval'ed dump
my $mde = eval($dump);
print defined $mde ? "Defined" : "undef"; # => print undef, bad


#Dump 'Safe' eval
my $mdr = Safe->new->reval( $dump );
print defined $mdr ? "Defined" : "undef"; # => print defined, good

print $mdr->can('param') ? "yes" : "No"; # => print No. Why?