1.13 Devel::T2

sub DB::DB {
  my ($package, $file, $line) = caller();

  my $code = \@{"::_<$file"};

  print STDERR ">> $file:$line: $code->[$line]";
}