From e3ad44fd3e7afaec9dbe9420082df0a227d7c696 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 12 Nov 2010 13:03:02 -0600 Subject: get_package_symbol, without the vivify bits yet --- lib/Package/Stash.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/Package/Stash.pm b/lib/Package/Stash.pm index 73e53ef..0cd0c95 100644 --- a/lib/Package/Stash.pm +++ b/lib/Package/Stash.pm @@ -55,6 +55,8 @@ Returns the raw stash itself. =cut +=pod + { my %SIGIL_MAP = ( '$' => 'SCALAR', @@ -81,6 +83,8 @@ Returns the raw stash itself. } } +=cut + =method add_package_symbol $variable $value %opts Adds a new package symbol, for the symbol given as C<$variable>, and optionally @@ -121,6 +125,8 @@ Returns the value of the given package variable (including sigil). =cut +=pod + sub get_package_symbol { my ($self, $variable, %opts) = @_; @@ -186,6 +192,8 @@ sub get_package_symbol { } } +=cut + =method get_or_add_package_symbol $variable Like C, except that it will return an empty hashref or -- cgit v1.2.3-54-g00ecf