## accessors
-sub body { (shift)->{'body'} }
-
sub associated_metaclass { shift->{'associated_metaclass'} }
sub attach_to_class {
delete $self->{associated_metaclass};
}
-sub package_name { (shift)->{'package_name'} }
-
-sub name { (shift)->{'name'} }
-
sub fully_qualified_name {
my $self = shift;
$self->package_name . '::' . $self->name;
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>