#test.pl
use warnings;
use strict;
use DBM::Deep;
use Data::Dumper;
use LWP::UserAgent;
use Test::More qw(no_plan);

my $hash = DBM::Deep->new("foo.db");
my $user_agent = LWP::UserAgent->new;

$Data::Dumper::Terse=1;

my $user_agent_dumped = Dumper($user_agent);
$hash->{ua_1} = $user_agent_dumped;

my $user_agent_recreated = eval ( $hash->{ua_1} );

isa_ok($user_agent_recreated,'LWP::UserAgent'); #passes
[download]