/[Frey]/trunk/lib/Frey/Session.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Session.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 432 by dpavlin, Wed Nov 19 00:40:18 2008 UTC revision 434 by dpavlin, Wed Nov 19 01:21:31 2008 UTC
# Line 15  has 'usage' => ( Line 15  has 'usage' => (
15    
16  sub data {  sub data {
17          my ($self) = @_;          my ($self) = @_;
18            $self->session_dump( $self->usage );
19    }
20    
21    sub session_dump {
22            my ($self,$db) = @_;
23          my $data;          my $data;
24    
         my $db = $self->usage;  
   
25          my $key = $db->first_key();          my $key = $db->first_key();
26      while ($key) {      while ($key) {
27                  $data->{$key} = $db->get($key);                  $data->{$key} = $db->get($key);
Legend:
Removed from v.432  
changed lines
  Added in v.434
  ViewVC Help
Powered by ViewVC 1.1.26