perl -MData::ICal::Entry::Event -le'print grep {m/Event.pm/} values %INC' | xargs egrep 'sub.+new'