do IO on init not handle

2013-05-13 09:31:45 -04:00 · 2013-05-13 09:31:45 -04:00 · 099e33f9b1
parent ec280b5ebe
commit 099e33f9b1
1 changed files with 4 additions and 2 deletions
--- a/lib/DDG/Goodie/PrivateNetwork.pm
+++ b/lib/DDG/Goodie/PrivateNetwork.pm
@ -17,9 +17,11 @@ topics 'sysadmin';
 attribution twitter => 'crazedpsyc',
            cpan    => 'CRZEDPSYC' ;

+my $text = scalar share('private_network.txt')->slurp,
+my $html = scalar share('private_network.html')->slurp;
+
 handle sub {
-	scalar share('private_network.txt')->slurp,
-	html => scalar share('private_network.html')->slurp;
+    $text, html => $html;
 };

 1;