t/t4034/perl/post

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 package Frotz;
   6 sub new {
   7         my ($class, %opts) = @_;
   8         return bless { xyzzy => "nitfol", %opts }, $class;
   9 }
  10
  11 __END__
  12 =head1 NAME
  13
  14 frotz - Frotz
  15
  16 =head1 SYNOPSIS
  17
  18   use frotz;
  19
  20   $nitfol = new Frotz();
  21
  22 =cut