git/t/t4034/perl/post

23 lines
234 B
Text
Raw Normal View History

#!/usr/bin/perl
use strict;
package Frotz;
sub new {
my ($class, %opts) = @_;
return bless { xyzzy => "nitfol", %opts }, $class;
}
__END__
=head1 NAME
frotz - Frotz
=head1 SYNOPSIS
use frotz;
$nitfol = new Frotz();
=cut