use strict;
use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.04';
our $AUTHORITY = 'cpan:DROLSKY';
our @EXPORT = 'class_has'; ## no critic ProhibitAutomaticExportation
use base 'Exporter';
use B qw( svref_2object );
+use Moose::Meta::Class;
use Sub::Name;
{
my $caller = caller();
+ process_class_attribute( $caller, @_ );
+
+ return;
+}
+
+sub process_class_attribute ## no critic RequireArgUnpacking
+{
+ my $caller = shift;
+
my $caller_meta = $caller->meta();
my @parents = $caller_meta->superclasses();
my $container_pkg = _make_container_class( $caller, @parents );
+ my $container_meta = $container_pkg->meta();
- $container_pkg->meta()->_process_attribute(@_);
+ $container_meta->add_attribute(@_);
- my $container_meta = $container_pkg->meta();
for my $meth ( grep { $_ ne 'instance' } $container_meta->get_method_list() )
{
next if $caller_meta->has_method($meth);
}
# This is basically copied from Moose.pm
-sub unimport ## no critic RequireFinalReturn
+sub unimport ## no critic RequireFinalReturn, RequireArgUnpacking
{
- my $caller = caller();
+ my $caller = Moose::_get_caller(@_);
no strict 'refs'; ## no critic ProhibitNoStrict
foreach my $name (@EXPORT)
);
__PACKAGE__->meta()->make_immutable();
- MooseX::ClassAttribute::containing_class()->meta()->make_immutable();
+ MooseX::ClassAttribute::container_class()->meta()->make_immutable();
no Moose;
no MooseX::ClassAttribute;
This class exports one function when you use it, C<class_has()>. This
works exactly like Moose's C<has()>, but it declares class attributes.
-Own little nit is that if you include C<no Moose> in your class, you
+One little nit is that if you include C<no Moose> in your class, you
won't remove the C<class_has()> function. To do that you must include
C<no MooseX::ClassAttribute> as well.
+If you want to use this module to create class attributes in I<other>
+classes, you can call the C<process_class_attribute()> function like
+this:
+
+ MooseX::ClassAttribute::process_class_attribute( $package, ... );
+
+The first argument is the package which will have the class attribute,
+and the remaining arguments are the same as those passed to
+C<class_has()>.
+
=head2 Implementation and Immutability
Underneath the hood, this class creates one new class for each class
about this too much, except when it comes to making a class immutable.
Since the class attributes are not really stored in your class, you
-need to make the containing class immutable as well as your own ...
+need to make the container class immutable as well as your own ...
__PACKAGE__->meta()->make_immutable();
- MooseX::ClassAttribute::containing_class()->meta()->make_immutable();
+ MooseX::ClassAttribute::container_class()->meta()->make_immutable();
I<This may change in the future!>