Detect POD sections like perl would

[p5sagit/Module-Metadata.git] / t / metadata.t

diff --git a/t/metadata.t b/t/metadata.t
index a0bcaaa..b7adb1e 100644 (file)
--- a/t/metadata.t
+++ b/t/metadata.t
@@ -502,19 +502,21 @@ EXPECTED
   # test things that look like POD, but aren't
 $dist->change_file( 'lib/Simple.pm', <<'---' );
 package Simple;
-sub podzol () { 1 }
-sub cute () { 2 }
-my $x
-=podzol
-;
 
-our $VERSION = '1.23';
+=YES THIS STARTS POD
+
+our $VERSION = '999';
 
-my $y
 =cute
-;
 
-our $VERSION = '999';
+our $VERSION = '666';
+
+=cut
+
+*foo
+=*no_this_does_not_start_pod;
+
+our $VERSION = '1.23';
 
 ---
   $dist->regen;