package Foo;
use base Net::DAV::Server;

sub propfind {
 # copy of the original propfind() from Net::DAV::Server
 # do something
 _dav_child(soemthing);
}