#!/usr/bin/perl

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

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

use Attribute::Handlers;
use attributes;

sub Lion : ATTR {
    print "\ngroaarr!\n";
}
sub bar : Lion method {
  print "pling.\n";
}
print STDERR "\nDumping " . \&bar . " after attr assignment.\n";
Devel::Peek::Dump(\&bar);