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);
}

##</code><code>##

Dumping CODE(0x818a994) in MODIFY_CODE_ATTRIBUTES:
SV = RV(0x819e958) at 0x8197600
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x818a994
  SV = PVCV(0x818ddb8) at 0x818a994
    REFCNT = 5
    FLAGS = ()
    IV = 0
    NV = 0
    COMP_STASH = 0x0
    ROOT = 0x0
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = 0x0
    FILE = "(null)"
    DEPTH = 0
    FLAGS = 0x0
    OUTSIDE_SEQ = 208
    PADLIST = 0x818a97c
    PADNAME = 0x8184450(0x0) PAD = 0x818aa00(0x81a5830)
    OUTSIDE = 0x8183288 (UNIQUE)

Dumping CODE(0x818a994) after compilation.
SV = RV(0x819e940) at 0x819bb48
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x818a994
  SV = PVCV(0x818ddb8) at 0x818a994
    REFCNT = 2
    FLAGS = ()
    IV = 0
    NV = 0
    COMP_STASH = 0x814eb50	"main"
    START = 0x816e678 ===> 2993
    ROOT = 0x81afbc0
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = 0x818ab44	"main" :: "bar"
    FILE = "Monks/Snippet.pm"
    DEPTH = 0
    FLAGS = 0x0
    OUTSIDE_SEQ = 208
    PADLIST = 0x818a97c
    PADNAME = 0x8184450(0x819caf8) PAD = 0x818aa00(0x81a5830)
    OUTSIDE = 0x8183288 (UNIQUE)