@matheusbsbs / matheus-bagliano
Code Commits Pulls CI/CD 82,128
seen
bisect jch maint master next seen test todo
text 22 lines 234 Bytes
Raw
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