sub ls {
    my $self = shift;
    print "Sub ls function called with arguments:\n".join("\n", @_)."\n";
    bless $self, 'SVN::Client';
    $self->SUPER::ls(@_);
}