diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-12 14:21:02 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-12 14:21:02 -0600 |
| commit | cb4df463eddfb4fb9b4090e43a860a2722ae6d34 (patch) | |
| tree | b70e43e39c2e6a35cbc5f4d6a4a1424cf6485983 /t | |
| parent | e3ad44fd3e7afaec9dbe9420082df0a227d7c696 (diff) | |
| download | package-stash-xs-cb4df463eddfb4fb9b4090e43a860a2722ae6d34.tar.gz package-stash-xs-cb4df463eddfb4fb9b4090e43a860a2722ae6d34.zip | |
expand constant stash entries on get
Diffstat (limited to 't')
| -rwxr-xr-x | t/07-edge-cases.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index a742c76..e5928a5 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -39,4 +39,7 @@ ok(!$stash->has_package_symbol('$added'), '$added'); ok(!$stash->has_package_symbol('@added'), '@added'); ok($stash->has_package_symbol('%added'), '%added'); +my $constant = $stash->get_package_symbol('&FOO'); +is(ref($constant), 'CODE', "expanded a constant into a coderef"); + done_testing; |