#!/usr/bin/perl


require SVN::Core;
require SVN::Ra;
my $ra = SVN::Ra->new ('file:///tmp/werh');

my $ed = new DeltaEditor;

$rep=$ra->do_status("", 3, 1, $ed, 0);

$rep->set_path("", 2, 0, "");
$rep->finish_report();


package DeltaEditor;

sub new
{
  bless [];
}

sub set_target_revision { }
sub open_root { }
sub open_directory { }
sub change_dir_prop { }
sub open_file { }
sub change_file_prop { print join("-",map { defined($_) ? $_ : "undef" } @_),"\n"; }
sub close_file { }
sub close_directory { }
sub close_edit { }


