diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-12 13:03:02 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-12 13:03:02 -0600 |
| commit | e3ad44fd3e7afaec9dbe9420082df0a227d7c696 (patch) | |
| tree | 0945554559dee92c9c3675331c19ee2b7b7a1a13 /lib | |
| parent | 76f7c3068e8bd63fcbac28758631fcda72596674 (diff) | |
| download | package-stash-xs-e3ad44fd3e7afaec9dbe9420082df0a227d7c696.tar.gz package-stash-xs-e3ad44fd3e7afaec9dbe9420082df0a227d7c696.zip | |
get_package_symbol, without the vivify bits yet
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Package/Stash.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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<get_package_symbol>, except that it will return an empty hashref or |