{
    no strict 'refs';
    for my $method (qw( seconds minutes hours days weeks months years ))
    {
        *{ $method }         = sub { return $_[0]->{ $method } };
        *{ 'in_' . $method } = sub { 
            return $_[0]->{ time } / $_[0]->{_table }{ $method } }    }       
}   }