Sync with 1.7.4.3
[git] / 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