List svn/git repositories

use Path::Class qw(dir file);
use Cwd;
use XML::LibXML;

visit(dir(shift // '.'));

sub visit {
    my ($dir) = @_;

    next if ! $dir->is_dir;
    for my $entry ($dir->children) {
        next unless -d $entry;
        my $svn = get_svn_url($entry);
        if(defined $svn) {
            warn join("\t", $entry, $svn), "\n";
            next;
        }

        if(-d $entry->file('.git')) {
            my $curr = getcwd;
            chdir($entry->absolute);
            my @remotes = `git remote -v`;
            chdir($curr);
            for my $rem (@remotes) {
                chomp($rem);
                warn join("\t", $entry, $rem), "\n";
            }
            next;
        }

        visit($entry);
    }
}

sub get_svn_url {
    my ($dir) = @_;

    my $svn_info = `svn info $dir --xml 2>nul`;
    return unless $svn_info =~ /<url>/;
    my $doc = XML::LibXML->load_xml(string => $svn_info);
    my $url = $doc->findvalue('//url');
    return $url;
}