# assumes-> use File::Temp ':POSIX'; for tempnam()
# assumes-> use YAML 'Dump'; (or) use YAML::Syck 'Dump'; for Dump()
sub dump {
my $message = shift;
my $structures = scalar @_; # yes, 'scalar' is redudant, but readable
# create file in curdir with prefix 'dump.'
my ($dump_h, $dump_n) = tempnam('.','dump.');
print $dump_h, Dump($_) for @_;
close $dump_h;
$message.=sprintf '(%d dumped to "%s")', $structures, $dump_n;
}
####
$logger->fatal( dump('Unable to foo, dumping object $foo_doer.', $foo_doer) );
##
##
20070314 15:09 FATAL: Unable to foo, dumping object $foo_doer.(1 dumped to "dump.foobar1")