use strict;
use warnings;
-use Moose 0.98 ();
+use Moose 2.00 ();
use Moose::Exporter;
+use Moose::Util;
use MooseX::ClassAttribute::Trait::Class;
use MooseX::ClassAttribute::Trait::Role;
use MooseX::ClassAttribute::Trait::Application::ToClass;
sub class_has {
my $meta = shift;
my $name = shift;
- my %options = @_;
my $attrs = ref $name eq 'ARRAY' ? $name : [$name];
+ my %options = ( definition_context => _caller_info(), @_ );
+
$meta->add_class_attribute( $_, %options ) for @{$attrs};
}
+# Copied from Moose::Util in 2.06
+sub _caller_info {
+ my $level = @_ ? ($_[0] + 1) : 2;
+ my %info;
+ @info{qw(package file line)} = caller($level);
+ return \%info;
+}
+
1;
# ABSTRACT: Declare class attributes Moose-style
Class attributes themselves do the
L<MooseX::ClassAttribute::Trait::Attribute> role.
-There is also a L<MooseX::ClassAttribute::Meta::Method::Accessor>
-which provides part of the inlining implementation for class
-attributes.
-
=head2 Cooperation with Metaclasses and Traits
This module should work with most attribute metaclasses and traits,