Flavio S. Glock wrote:
> DateTime::Event::Basic - A base class for building Event classes.
Ok, I think I'll explain this a bit more:
For example, DateTime::Event::Sunset would be simplified to:
@ISA = qw( DateTime::Event::Basic );
sub initialize {
[snipped param checking]
$self->{event_name} = $parm{event};
$self->{logitude} = $parm{longitude};
$self->{latitude} = $parm{latitude};
$self->{next} = \&_next_sunrise if $self->{event_name} eq 'sunrise';
$self->{next} = \&_next_sunset if $self->{event_name} eq 'sunset';
$self->SUPER::initialize;
}
sub _next_sunrise { .... }
sub _next_sunset { .... }
__END__
- Flavio S. Glock
