X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FClassData.pm;h=f252f05eeba37d7eea06ab6f889fed63b956c489;hb=fb0c5b21c3c972bc88b8c6c481f9937f31658a23;hp=cc90c0655b2ebb7738137709973c862f3685a223;hpb=bafb7fb41dd4cbc70fc18a173841cebf850f5b35;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/ClassData.pm b/lib/Catalyst/ClassData.pm index cc90c06..f252f05 100644 --- a/lib/Catalyst/ClassData.pm +++ b/lib/Catalyst/ClassData.pm @@ -1,6 +1,7 @@ package Catalyst::ClassData; use Moose::Role; +use Moose::Meta::Class (); use Class::MOP; use Moose::Util (); @@ -12,8 +13,8 @@ sub mk_classdata { my $slot = '$'.$attribute; my $accessor = sub { my $pkg = ref $_[0] || $_[0]; - my $meta = Moose::Util::find_meta($pkg) - || Moose->init_meta( for_class => $pkg ); + my $meta = Moose::Util::find_meta($pkg) + || Moose::Meta::Class->initialize( $pkg ); if (@_ > 1) { $meta->namespace->{$attribute} = \$_[1]; return $_[1]; @@ -82,7 +83,7 @@ Guillermo Roditi =head1 COPYRIGHT -This program is free software, you can redistribute it and/or modify it under +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut