X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FCheese.pm;h=6d234c5c5bc8277ea96249852135347b5f4ae72a;hb=8d07cc757d6a93911ad0f57ba6e4c114f9bb6888;hp=db1810421954aa3b02549732bf54051bd41b3e18;hpb=94e0b31b04205bddac4ea3ffbf55a948d0148661;p=pod-constants.git

diff --git a/t/Cheese.pm b/t/Cheese.pm
index db18104..6d234c5 100644
--- a/t/Cheese.pm
+++ b/t/Cheese.pm
@@ -1,14 +1,16 @@
 package Cheese;
-
 use strict;
+use warnings;
+
+our ($foo, $quux);
+
+sub handle_bar {
+	print "GOT HERE\n";
+	eval 'use ReEntrancyTest';
+	print "GOT HERE TOO. \$\@ is `$@'\n";
+}
 
-use vars qw($foo $quux);
-use Pod::Constants -debug => 1, -trim => 1,
-    foo => \$foo,
-    bar => sub { print "GOT HERE\n"; eval "use ReEntrancyTest";
-		 print "GOT HERE TOO. \$\@ is `$@'\n"; },
-    quux => \$quux,
-;
+use Pod::Constants -debug => 1, -trim => 1, foo => \$foo, bar => \&handle_bar, quux => \$quux;
 
 =head1 foo