Select Code to Download

sub from_string {
    use Date::Manip;
...
    $self->{NOW}=(defined($time_t))?$time_t:undef;
    return $self;
}