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

package Date::TodayDate;

use strict;
use warnings;
use base qw( Class::Accessor::Fast );

__PACKAGE__->mk_accessors(
    qw(m1
       m2
       m3)
);

1;

# как в этом пакете присвоить этим метода значения ?