use strict;
use warnings;
use Devel::Peek();

sub MODIFY_CODE_ATTRIBUTES {
  my $sPackage = shift @_;
  my $crSub = shift @_;
  print STDERR "Dumping $crSub in MODIFY_CODE_ATTRIBUTES:\n";
  Devel::Peek::Dump($crSub);
  return ();
}

BEGIN {
  sub bar : Lion {
    print "pling.\n";
  }
  print STDERR "\nDumping " . \&bar . " after compilation.\n";
  Devel::Peek::Dump(\&bar);
}