find(sub { unshift @_,$obj; goto &{$obj->can('found')} }, $directory);