From 3ce18c876e750d53fa5df8d283e3f4ff8d2dfa94 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 18 Aug 2012 19:24:59 -0500
Subject: make fun work at compile time

---
 lib/Fun.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'lib')

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
-- 
cgit v1.2.3-54-g00ecf