How It Works: How a Mapping Maps

From Class::DBI::DataMigration::Mapping:

sub map {
    my ($self, $source_key, $source_object) = @_;
    my $retval = eval qq{ return \$source_object->$source_key };
    $retval = $@ if $@;
    return $retval;
}