--- trunk/lib/SourceSnoop.pm 2008/09/13 14:19:04 186 +++ trunk/lib/Frey/VCI.pm 2008/11/25 14:09:50 515 @@ -1,4 +1,4 @@ -package SourceSnoop; +package Frey::VCI; use Moose; @@ -7,51 +7,75 @@ extends 'Frey'; with 'Frey::Web'; +with 'Frey::Escape'; use Data::Dump qw/dump/; -our $debug = 1; +has 'repo' => ( + is => 'rw', + isa => 'Str', + required => 1, + default => 'file:///home/dpavlin/private/svn/Frey', +); + +has 'type' => ( + is => 'rw', + isa => 'Str', + required => 1, + default => 'Svn', +); + +has 'project' => ( + is => 'rw', + isa => 'Str', + required => 1, + default => 'trunk', +); + +has 'revision' => ( + is => 'rw', + isa => 'Int|Str', + documentation => 'last revision in repository if not specified', +); -sub pre_dump { - my $o = shift; - # because Data::Dumper::HTML sucks - my $t = $o->dump; $t =~ s/ {8}/ /gm; - return "
$t"; -} - -sub html { - my ( $self, $request ) = @_; - - my %param = $request->params; - warn "## params = ",dump( %param ); +sub as_markup { + my ( $self ) = @_; my $html; - my $path = 'file:///home/dpavlin/private/svn/Frey'; my $repo = VCI->connect( - repo => $path, - type => 'Svn', - debug => 1, - ); - - $html .= qq|
' . $self->html_escape( $diff->raw ) . '' . + 'dump
' . $self->html_dump( $diff ) . '
';
+
+ $self->title( $self->repo . '/' . $project->name );
+ return $body;
+};
warn "## VCI loaded";