sub can { my $p = shift(@_); return UNVERSAL::can($p, @_) || File::Samba->can(@_); }