t/pod/p2u_data.pl

   1 use Pod::Usage;
   2 pod2usage(-verbose => 2, -exit => 17, -input => \*DATA);
   3
   4 __DATA__
   5 =head1 NAME
   6
   7 Test
   8
   9 =head1 SYNOPSIS
  10
  11 perl podusagetest.pl
  12
  13 =head1 DESCRIPTION
  14
  15 This is a test.
  16
  17 =cut
  18