debug.pm

package debug;
use strict;
use warnings;
use Data::Dumper;

BEGIN {
   *CORE::GLOBAL::warn = sub {
       my ($package, $file, $line) = caller;
       ref $_[0] ? CORE::warn(Data::Dumper::Dumper(@_), sprintf(" at %s line %d\n", $file, $line)): CORE::warn @_, sprintf(" at %s line %d\n", $file, $line);
   };}
1;