Select Code to Download

package Data::Dumper::Extensions;
use Data::Dumper;
sub Data::Dumper::print_r {
  print Dumper(@_);
}

package My::AwesomeError;

...
  my $self = @_;
  die "BANG! ".$self->as_string;
}