Simplify tests

[pod-constants.git] / t / Cheese.pm

diff --git a/t/Cheese.pm b/t/Cheese.pm
index db1810421954aa3b02549732bf54051bd41b3e18..6d234c5c5bc8277ea96249852135347b5f4ae72a 100644 (file)
--- 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