git-commit-vandalism/t/t4034/perl/pre

23 lines
202 B
Plaintext
Raw Normal View History

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