package Date TodayDate use strict use warnings use base qw Class Acces

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
package Date::TodayDate;
use strict;
use warnings;
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors(
qw(m1
m2
m3)
);
1;
# как в этом пакете присвоить этим метода значения ?