Slide 37
Slide 37 text
1 #!/usr/bin/env perl
2
3 package CodeHex;
4 use strict;
5 use warnings;
6 use utf8;
7
8 sub perl_entance { return 1;}
9
10 package AnaTofuZ;
11 use strict;
12 use warnings;
13 use utf8;
14
15 our @ISA = qw/CodeHex/;
16
17 sub new { bless {}, 'Member' }
18
19 1;