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

1;

##</code><code>##

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

sub propfind {
 # copy of the original propfind() from Net::DAV::Server
}

1;