return 0 if ref($class) || !defined($class) || !length($class);
# walk the symbol table tree to avoid autovififying
- # \*{${main::}{"Foo::"}} == \*main::Foo::
+ # \*{${main::}{"Foo::"}{"Bar::"}} == \*main::Foo::Bar::
my $pack = \%::;
foreach my $part (split('::', $class)) {
- my $entry = \$pack->{$part . '::'};
+ $part .= '::';
+ return 0 if !exists $pack->{$part};
+
+ my $entry = \$pack->{$part};
return 0 if ref($entry) ne 'GLOB';
- $pack = *{$entry}{HASH} or return 0;
+ $pack = *{$entry}{HASH};
}
+ return 0 if !%{$pack};
+
# check for $VERSION or @ISA
return 1 if exists $pack->{VERSION}
&& defined *{$pack->{VERSION}}{SCALAR} && defined ${ $pack->{VERSION} };
return;
}
-
package
Mouse::Meta::Class;
-use Mouse::Meta::Method::Constructor;
+sub method_metaclass { $_[0]->{method_metaclass} || 'Mouse::Meta::Method' }
+sub attribute_metaclass { $_[0]->{attribute_metaclass} || 'Mouse::Meta::Attribute' }
-sub constructor_class() { 'Mouse::Meta::Method::Constructor' }
+sub constructor_class { $_[0]->{constructor_class} || 'Mouse::Meta::Method::Constructor' }
+sub destructor_class { $_[0]->{destructor_class} || 'Mouse::Meta::Method::Destructor' }
sub is_anon_class{
return exists $_[0]->{anon_serial_id};
return values %attrs;
}
+sub new_object {
+ my $self = shift;
+ my %args = (@_ == 1 ? %{$_[0]} : @_);
+
+ my $object = bless {}, $self->name;
+
+ $self->_initialize_object($object, \%args);
+ return $object;
+}
+
sub _initialize_object{
my($self, $object, $args, $ignore_triggers) = @_;
package
Mouse::Meta::Role;
+sub method_metaclass{ $_[0]->{method_metaclass} || 'Mouse::Meta::Role::Method' }
+
sub is_anon_role{
return exists $_[0]->{anon_serial_id};
}
package
Mouse::Meta::Attribute;
-use Mouse::Meta::Method::Accessor;
+require Mouse::Meta::Method::Accessor;
+
+sub accessor_metaclass{ $_[0]->{accessor_metaclass} || 'Mouse::Meta::Method::Accessor' }
# readers
sub has_documentation { exists $_[0]->{documentation} }
-sub accessor_metaclass(){ 'Mouse::Meta::Method::Accessor' }
-
package
Mouse::Meta::TypeConstraint;
return $self;
}
+sub DESTROY {
+ my $self = shift;
+
+ return unless $self->can('DEMOLISH'); # short circuit
+
+ local $?;
+
+ my $e = do{
+ local $@;
+ eval{
+
+ # DEMOLISHALL
+
+ # We cannot count on being able to retrieve a previously made
+ # metaclass, _or_ being able to make a new one during global
+ # destruction. However, we should still be able to use mro at
+ # that time (at least tests suggest so ;)
+
+ foreach my $class (@{ Mouse::Util::get_linear_isa(ref $self) }) {
+ my $demolish = Mouse::Util::get_code_ref($class, 'DEMOLISH')
+ || next;
+
+ $self->$demolish();
+ }
+ };
+ $@;
+ };
+
+ no warnings 'misc';
+ die $e if $e; # rethrow
+}
+
1;
__END__
=head1 VERSION
-This document describes Mouse version 0.40_05
+This document describes Mouse version 0.42
=head1 SEE ALSO