use Carp 'confess';
-our $VERSION = '0.04';
+our $VERSION = '0.05';
use base 'Class::MOP::Attribute';
}
}
+sub accessor_metaclass { 'LazyClass::Method::Accessor' }
+
+package # hide the package from PAUSE
+ LazyClass::Method::Accessor;
+
+use strict;
+use warnings;
+
+use Carp 'confess';
+
+our $VERSION = '0.01';
+
+use base 'Class::MOP::Method::Accessor';
+
sub generate_accessor_method {
- my $attr = shift;
+ my $attr = (shift)->associated_attribute;
my $attr_name = $attr->name;
my $meta_instance = $attr->associated_class->get_meta_instance;
}
sub generate_reader_method {
- my $attr = shift;
+ my $attr = (shift)->associated_attribute;
my $attr_name = $attr->name;
my $meta_instance = $attr->associated_class->get_meta_instance;
};
}
-
-
package # hide the package from PAUSE
LazyClass::Instance;