X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FInsideOut%2FMeta%2FClass.pm;fp=lib%2FMooseX%2FInsideOut%2FMeta%2FClass.pm;h=0000000000000000000000000000000000000000;hb=71d2a8c6639f8daa394e83f50345369967d2b490;hp=e5984d38b6b0441f14fa2d3690efbe57c7a12105;hpb=fff3c901f8a6730647251934b91f86dc9847aa54;p=gitmo%2FMooseX-InsideOut.git diff --git a/lib/MooseX/InsideOut/Meta/Class.pm b/lib/MooseX/InsideOut/Meta/Class.pm deleted file mode 100644 index e5984d3..0000000 --- a/lib/MooseX/InsideOut/Meta/Class.pm +++ /dev/null @@ -1,35 +0,0 @@ -use strict; -use warnings; - -package MooseX::InsideOut::Meta::Class; - -# need to load this before loading Moose and using it as a metaclass, because -# of circularity -use MooseX::InsideOut::Meta::Instance; -use Moose; -extends 'Moose::Meta::Class'; - -sub initialize { - my $class = shift; - my $pkg = shift; - $class->SUPER::initialize( - $pkg, - instance_metaclass => 'MooseX::InsideOut::Meta::Instance', - @_, - ); -} - -# this seems like it should be part of Moose::Meta::Class -sub construct_instance { - my ($class, %params) = @_; - my $meta_instance = $class->get_meta_instance; - my $instance = $params{'__INSTANCE__'} - || $meta_instance->create_instance(); - foreach my $attr ($class->compute_all_applicable_attributes()) { - my $meta_instance = $attr->associated_class->get_meta_instance; - $attr->initialize_instance_slot($meta_instance, $instance, \%params); - } - return $instance; -} - -1;