Select Code to Download

use strict;
use warnings;
...
print "Attributes: ";
print join ', ', attributes::get(\&bar);
print "\n";

use strict;
use warnings;
...


return 1;

use strict;
use warnings;
...
sub bar : Lion Tiger Bear Boom {
    print "pling.\n";
}