From 1e22f62b2c6bb17153f0524ea3a1b684346a8988 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 18 Aug 2012 19:01:22 -0500
Subject: support anonymous functions

---
 lib/Fun.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/Fun.pm b/lib/Fun.pm
index 188adfb..b4f1f7e 100644
--- a/lib/Fun.pm
+++ b/lib/Fun.pm
@@ -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
-- 
cgit v1.2.3-54-g00ecf