Sign in
googlers
/
jrn
/
git
/
4da8b2fcd4f7b993ffd3ecf59d279c97fe23b0df
/
.
/
t
/
t4034
/
perl
/
pre
blob: f6610d37b8aadf45178a098e371dd104fa91726a [
file
] [
log
] [
blame
]
#!/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