--- trunk/lib/Frey/Web.pm	2008/11/24 22:21:02	505
+++ trunk/lib/Frey/Web.pm	2008/11/25 00:26:15	507
@@ -299,4 +299,10 @@
 		;
 }
 
+sub add_status {
+	my ( $self, $data ) = @_;
+	push @{ $self->status }, $data;
+	warn "## current status ", $#{ $self->status }, " elements";
+}
+
 1;