X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FPackage.pm;h=e87df5566a76f15a1dee57369e9314671068335b;hb=d004c8d565f9b314da7652e9368aeb4587ffaa3d;hp=9875d2d96b0f7c8771c8d2eb714f8e6df7947b9d;hpb=f014c28ba9a61d3ff1eceb38e18acb266e803ad4;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm index 9875d2d..e87df55 100644 --- a/lib/Class/MOP/Package.pm +++ b/lib/Class/MOP/Package.pm @@ -8,7 +8,7 @@ use Scalar::Util 'blessed', 'reftype'; use Carp 'confess'; use Package::Stash; -our $VERSION = '1.10'; +our $VERSION = '1.12'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -103,39 +103,44 @@ sub namespace { sub add_package_symbol { my $self = shift; - $self->_package_stash->add_package_symbol(@_); + $self->_package_stash->add_symbol(@_); } sub remove_package_glob { my $self = shift; - $self->_package_stash->remove_package_glob(@_); + $self->_package_stash->remove_glob(@_); } # ... these functions deal with stuff on the namespace level sub has_package_symbol { my $self = shift; - $self->_package_stash->has_package_symbol(@_); + $self->_package_stash->has_symbol(@_); } sub get_package_symbol { my $self = shift; - $self->_package_stash->get_package_symbol(@_); + $self->_package_stash->get_symbol(@_); } sub get_or_add_package_symbol { my $self = shift; - $self->_package_stash->get_or_add_package_symbol(@_); + $self->_package_stash->get_or_add_symbol(@_); } sub remove_package_symbol { my $self = shift; - $self->_package_stash->remove_package_symbol(@_); + $self->_package_stash->remove_symbol(@_); } sub list_all_package_symbols { my $self = shift; - $self->_package_stash->list_all_package_symbols(@_); + $self->_package_stash->list_all_symbols(@_); +} + +sub get_all_package_symbols { + my $self = shift; + $self->_package_stash->get_all_symbols(@_); } 1;