Bring the joy of strict and warnings to Functions.t

This reveals that use_ok() was not in a BEGIN block, and in turn that the
test count needs to be declared before this BEGIN block runs. Now fixed.

diff --git a/lib/Pod/t/Functions.t b/lib/Pod/t/Functions.t
index ec74b43..fb6dc40 100644 (file)
--- a/lib/Pod/t/Functions.t
+++ b/lib/Pod/t/Functions.t
@@ -1,18 +1,20 @@
-#!perl
+#!perl -w
 
 BEGIN {
        chdir 't' if -d 't';
        @INC = '../lib';
 }
 
+use strict;
+
 use File::Basename;
 use File::Spec;
 
-use Test::More;
-plan tests => 9;
-
+use Test::More tests => 9;
 
-use_ok( 'Pod::Functions' );
+BEGIN {
+    use_ok( 'Pod::Functions' );
+}
 
 # How do you test exported vars?
 my( $pkg_ref, $exp_ref ) = ( \%Pod::Functions::Kinds, \%Kinds );