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; # как в этом пакете присвоить этим метода значения ?