diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-08-18 19:01:22 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-08-18 19:01:22 -0500 |
commit | 1e22f62b2c6bb17153f0524ea3a1b684346a8988 (patch) | |
tree | cd0f1f85b7e737df5eea19eebee67bc01584b2c4 /lib | |
parent | 6d034593a5f0b02eb9e5b7069fa86814aae07b7c (diff) | |
download | fun-1e22f62b2c6bb17153f0524ea3a1b684346a8988.tar.gz fun-1e22f62b2c6bb17153f0524ea3a1b684346a8988.zip |
support anonymous functions
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Fun.pm | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -28,9 +28,15 @@ our @EXPORT = our @EXPORT_OK = ('fun'); sub fun { my ($name, $code) = @_; - my $caller = caller; - no strict 'refs'; - *{ $caller . '::' . $name } = $code; + + if (defined $name) { + my $caller = caller; + no strict 'refs'; + *{ $caller . '::' . $name } = $code; + } + else { + return $code; + } } =head1 BUGS |