--- trunk/lib/Frey/Session.pm	2008/11/27 21:04:35	562
+++ trunk/lib/Frey/Session.pm	2008/11/27 21:32:07	566
@@ -7,6 +7,7 @@
 
 use DBM::Deep;
 use Data::Dump qw/dump/;
+use Time::HiRes qw/time/;
 
 has 'usage' => (
 	documentation => 'Track usage of classes for ClassBrowser',
@@ -48,14 +49,19 @@
 	return $data;
 }
 
-
 sub TODO {
 	my ( $self, $what ) = @_;
 	eval {
 		$self->bugs = {} unless defined $self->bugs; # bootstrap
 		warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
-		$self->bugs->{TODO}->{ $what }->{ time() } = {
-			backtrace => caller,
+
+		my ( $package, $path, $line ) = caller;
+
+		$self->bugs->{TODO}->{ $what } = {
+			last_occured => time,
+			'package' => $package,
+			path => $path,
+			line => $line,
 		}
 	};
 	warn "TODO ERROR: $@\n$what" if $@;