use base qw/Data::ICal::Entry/;