use Scalar::Util 'blessed';
use Carp 'confess';
-our $VERSION = '0.04';
+our $VERSION = '0.06';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
# until we can bootstrap it
no strict 'refs';
return bless {
- '$:package' => $package_name,
+ '$!package' => $package_name,
# NOTE:
# because of issues with the Perl API
# to the typeglob in some versions, we
# reference to the hash in the accessor.
# Ideally we could just store a ref and
# it would Just Work, but oh well :\
- '%:namespace' => \undef,
+ '%!namespace' => \undef,
} => $class;
}
# all these attribute readers will be bootstrapped
# away in the Class::MOP bootstrap section
-sub name { $_[0]->{'$:package'} }
+sub name { $_[0]->{'$!package'} }
sub namespace {
# NOTE:
# because of issues with the Perl API
my $namespace = $self->namespace;
return grep {
defined(*{$namespace->{$_}}{$type_filter})
+ } grep {
+ ref(\$namespace->{$_}) eq 'GLOB'
} keys %{$namespace};
}
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006, 2007 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>