repo.or.cz
/
git.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
test-lint: find unportable sed, echo, test, and export usage after &&
[git.git]
/
t
/
t4034
/
perl
/
post
blob
e8b72ef5dcd5d3e13424e372a25d63a3df3e88ee
1
#!/usr/bin/perl
2
3
use
strict
;
4
5
package
Frotz
;
6
sub
new
{
7
my
(
$class
,
%opts
) =
@_
;
8
return
bless
{
xyzzy
=>
"nitfol"
,
%opts
},
$class
;
9
}
10
11
__END__
12
=head1 NAME
13
14
frotz - Frotz
15
16
=head1 SYNOPSIS
17
18
use frotz;
19
20
$nitfol = new Frotz();
21
22
=cut