1 package Catalyst::ClassData;
4 use Moose::Meta::Class ();
9 my ($class, $attribute, $warn_on_instance) = @_;
10 confess("mk_classdata() is a class method, not an object method")
14 my $pkg = ref $_[0] || $_[0];
15 my $meta = Moose::Util::find_meta($pkg)
16 || Moose::Meta::Class->initialize( $pkg );
18 $meta->namespace->{$attribute} = \$_[1];
23 # if ( $meta->has_package_symbol('$'.$attribute) ) {
24 # return ${ $meta->get_package_symbol('$'.$attribute) };
27 my $v = *{"${pkg}::${attribute}"}{SCALAR};
31 foreach my $super ( $meta->linearized_isa ) {
32 # tighter version of same after
33 # my $super_meta = Moose::Meta::Class->initialize($super);
34 my $v = ${"${super}::"}{$attribute} ? *{"${super}::${attribute}"}{SCALAR} : undef;
43 my $meta = $class->Class::MOP::Object::meta();
44 confess "${class}'s metaclass is not a Class::MOP::Class"
45 unless $meta->isa('Class::MOP::Class');
47 my $was_immutable = $meta->is_immutable;
48 my %immutable_options = $meta->immutable_options;
50 $meta->make_mutable if $was_immutable;
52 my $alias = "_${attribute}_accessor";
53 $meta->add_method($alias, $accessor);
54 $meta->add_method($attribute, $accessor);
56 $meta->make_immutable(%immutable_options) if $was_immutable;
58 $class->$attribute($_[2]) if(@_ > 2);
69 Catalyst::ClassData - Class data accessors
73 =head2 mk_classdata $name, $optional_value
75 A moose-safe clone of L<Class::Data::Inheritable> that borrows some ideas from
76 L<Class::Accessor::Grouped>;
88 This library is free software. You can redistribute it and/or modify it under
89 the same terms as Perl itself.