use Carp 'confess';
use Scalar::Util 'weaken';
-our $VERSION = '0.77';
+our $VERSION = '0.78';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
## 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;