diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 01:13:42 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 01:13:42 -0400 |
| commit | 7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0 (patch) | |
| tree | 259512cb41a0275d62d6f8209135d6cbe5c9d511 /lib/Reply/Plugin/LexicalPersistence.pm | |
| parent | 9ad70dd68d45203970fed6e7c2bdca13da13d8c4 (diff) | |
| download | reply-7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0.tar.gz reply-7f6fda3414fe5ad689f6fd732a6cb1ca6078d1d0.zip | |
let plugins query for this info, rather than always publishing it
Diffstat (limited to 'lib/Reply/Plugin/LexicalPersistence.pm')
| -rw-r--r-- | lib/Reply/Plugin/LexicalPersistence.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Reply/Plugin/LexicalPersistence.pm b/lib/Reply/Plugin/LexicalPersistence.pm index 8437cbe..2e972bf 100644 --- a/lib/Reply/Plugin/LexicalPersistence.pm +++ b/lib/Reply/Plugin/LexicalPersistence.pm @@ -41,9 +41,13 @@ sub compile { %{ peek_sub($code) }, }; - $self->publish('lexical_environment', $self->{env}); - return $code; } +sub lexical_environment { + my $self = shift; + + return $self->{env}; +} + 1; |