bucky2/t/svn.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use lib "../lib";
use Bucky::SVN;
use Data::Dumper;
my $svn = new Bucky::SVN;
my $records = $svn->list;
foreach my $rec (@$records)
	{
	print Dumper($rec);
	}