--- trunk/lib/Frey/Session.pm	2008/11/27 22:10:49	569
+++ trunk/lib/Frey/Session.pm	2008/11/28 23:32:52	610
@@ -51,6 +51,12 @@
 	return $data;
 }
 
+=head2 TODO
+
+  my $TODO = $self->TODO( "message" );
+
+=cut
+
 sub TODO {
 	my ( $self, $what ) = @_;
 	eval {
@@ -67,6 +73,7 @@
 		}
 	};
 	warn "TODO ERROR: $@\n$what" if $@;
+	return $what;
 }
 
 1;