X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FPackage.pm;fp=lib%2FClass%2FMOP%2FPackage.pm;h=e87df5566a76f15a1dee57369e9314671068335b;hb=d004c8d565f9b314da7652e9368aeb4587ffaa3d;hp=8f5e91612176ebca7e838142f900bdd84dfc3b8e;hpb=bd2550f8320262fe1ab10f6c0eedc960889d869f;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm index 8f5e916..e87df55 100644 --- a/lib/Class/MOP/Package.pm +++ b/lib/Class/MOP/Package.pm @@ -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;