make fun work at compile time

1 files changed, 8 insertions, 8 deletions

diff --git a/lib/Fun.pm b/lib/Fun.pm
index b4f1f7e..c18b6bf 100644
--- a/lib/Fun.pm
+++ b/lib/Fun.pm
@@ -27,16 +27,16 @@ our @EXPORT = our @EXPORT_OK = ('fun');
 =cut
 
 sub fun {
+    my ($code) = @_;
+    return $code;
+}
+
+sub _install_fun {
     my ($name, $code) = @_;
 
-    if (defined $name) {
-        my $caller = caller;
-        no strict 'refs';
-        *{ $caller . '::' . $name } = $code;
-    }
-    else {
-        return $code;
-    }
+    my $caller = caller;
+    no strict 'refs';
+    *{ $caller . '::' . $name } = $code;
 }
 
 =head1 BUGS