You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
234 B
23 lines
234 B
14 years ago
|
#!/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
|