my ($rev, $frompath) = SVN::Fs::copied_from($self->{root}, $path, $pool);
    if ($frompath) {
        push @{$self->{copied}}, $path;
        warn "add dir ($rev, $frompath) -> $_[0]";
        return $self->SUPER::add_directory($path, $baton, $frompath, $rev, $pool);
    }
    return undef if $self->_ignore($path);

NAME

SVN::Mirror - Mirror Remote Subversion Repository to local

SYNOPSIS

my $m = SVN::Mirror->new (source => $url, target => '/path/to/repository', target_path => '/mirror/project1' target_create => 1, skip_to => 100 );

$m->init

$m->run

DESCRIPTION

    my @visited;
    while (my ($path, $info) = each %$paths) {
        if ($info->copyfrom_path) {
            $editor->{history}{$path} = $info->copyfrom_rev;
            warn "someone has history";
        }
    }

sub list { my $self = shift; my $mirrors;

    for (1..$self->{repos}->fs->youngest_rev) {
        my $prop = $self->{fs}->revision_proplist ($changed, $changed);
        for (my ($k, $v) = each %$prop) {
#           if ($k =~ ) {
#           }
            $mirrors->{}
        }
    }
    $self->{repos}->get_log
}

AUTHORS

Chia-liang Kao <clkao@clkao.org>

COPYRIGHT

Copyright 2003 by Chia-liang Kao <clkao@clkao.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html