support anonymous functions

1 files changed, 9 insertions, 3 deletions

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