--- trunk/lib/Frey/Session.pm 2008/11/29 17:38:04 623 +++ trunk/lib/Frey/Session.pm 2008/12/01 12:45:06 655 @@ -8,7 +8,7 @@ use DBM::Deep; use Data::Dump qw/dump/; use Time::HiRes qw/time/; -use Carp qw/carp/; +use Carp qw/carp croak/; our $usage = DBM::Deep->new( 'var/session/usage.db' ); has 'usage' => ( @@ -31,7 +31,7 @@ $bugs }, ); -sub as_data { +sub session_as_data { my ($self) = @_; { usage => $self->session_dump( $self->usage ),