Sign in
googlers
/
jrn
/
git
/
9bcdaab13ea542bbdb4ea4d5f189ca00b9270887
/
.
/
t
/
t4034
/
perl
/
post
blob: e8b72ef5dcd5d3e13424e372a25d63a3df3e88ee [
file
] [
log
] [
blame
]
#!/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