in reply to Data::ICal::Entry::Todo->new();
perl -MData::ICal::Entry::Event -le'print grep {m/Event.pm/} values %I +NC' | xargs egrep 'sub.+new' [download]