--- trunk/lib/Frey/SVN.pm	2008/12/10 22:49:31	804
+++ trunk/lib/Frey/SVN.pm	2008/12/10 23:03:04	805
@@ -151,4 +151,34 @@
 	return $html;
 }
 
+sub codeswarm_as_markup {
+	my ($self) = @_;
+
+	$self->content_type('text/xml');
+
+	my $file_events = '';
+
+	$self->iterator( sub {
+		my $e = shift;
+		
+		my $rev = $e->{'revision'};
+		my $date = $e->{'date'};
+		my $author = $e->{'author'};
+
+		foreach my $p (@{$e->{'paths'}->{'path'}}) {
+			my ($action,$path) = ($p->{'action'},$p->{'content'});
+			$file_events .= qq|\t<event filename="$path" date="$date" author="$author" />\n|;
+		}
+
+	});
+
+	return qq|<?xml version="1.0"?>
+	<!-- One commit per day for one month by a documenter and programmer. -->
+	<file_events>
+	$file_events
+	</file_events>
+	|;
+
+}
+
 1;