find(sub { $obj->found }, $directory);

##</code><code>##

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