From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 14 Nov 2010 06:01:40 +0000 (-0600)
Subject: use the new names for the package-stash methods
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3644f90fbfe1de70304808a93b1259cd49d6059;p=gitmo%2FClass-MOP.git

use the new names for the package-stash methods
---

diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm
index 1c9293a..2d79261 100644
--- a/lib/Class/MOP/Package.pm
+++ b/lib/Class/MOP/Package.pm
@@ -103,39 +103,39 @@ 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(@_);
 }
 
 1;
diff --git a/t/081_meta_package_extension.t b/t/081_meta_package_extension.t
index 6bf3f6b..e0f393c 100644
--- a/t/081_meta_package_extension.t
+++ b/t/081_meta_package_extension.t
@@ -29,7 +29,7 @@ use Class::MOP;
         $class->meta->new_object(__INSTANCE__ => $class->SUPER::new(@_));
     }
 
-    sub add_package_symbol {
+    sub add_symbol {
         my ($self, $variable, $initial_value) = @_;
 
         (my $name = $variable) =~ s/^[\$\@\%\&]//;