package SVN::Web::List;
use strict;
use File::Basename ();

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    %$self = @_;

    return $self;
}

sub run {
    my $self = shift;

    my @repos = SVN::Web::repos_list();
    return { template => 'list',
	     data => {nonav => 1,
                      repos => \@repos,
                      reposcount => scalar @repos}};
}

1;