/[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 566 by dpavlin, Thu Nov 27 21:32:07 2008 UTC revision 610 by dpavlin, Fri Nov 28 23:32:52 2008 UTC
# Line 9  use DBM::Deep; Line 9  use DBM::Deep;
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10  use Time::HiRes qw/time/;  use Time::HiRes qw/time/;
11    
12    our $usage = DBM::Deep->new( 'var/session/usage.db' );
13  has 'usage' => (  has 'usage' => (
14          documentation => 'Track usage of classes for ClassBrowser',          documentation => 'Track usage of classes for ClassBrowser',
15          is => 'rw',          is => 'rw',
16          isa => 'DBM::Deep',          isa => 'DBM::Deep',
17          lazy => 1,          lazy => 1,
18          default => sub {          default => sub {
19                  DBM::Deep->new( 'var/session/usage.db' );                  $usage
20          },          },
21  );  );
22    
23    our $bugs = DBM::Deep->new( 'var/session/bugs.db' );
24  has 'bugs' => (  has 'bugs' => (
25          documentation => 'Track bugs within Frey',          documentation => 'Track bugs within Frey',
26          is => 'rw',          is => 'rw',
27          isa => 'DBM::Deep',          isa => 'DBM::Deep',
28          lazy => 1,          lazy => 1,
29          default => sub {          default => sub {
30                  DBM::Deep->new( 'var/session/bugs.db' );                  $bugs
31          },          },
32  );  );
33  sub as_data {  sub as_data {
# Line 49  sub session_dump { Line 51  sub session_dump {
51          return $data;          return $data;
52  }  }
53    
54    =head2 TODO
55    
56      my $TODO = $self->TODO( "message" );
57    
58    =cut
59    
60  sub TODO {  sub TODO {
61          my ( $self, $what ) = @_;          my ( $self, $what ) = @_;
62          eval {          eval {
# Line 65  sub TODO { Line 73  sub TODO {
73                  }                  }
74          };          };
75          warn "TODO ERROR: $@\n$what" if $@;          warn "TODO ERROR: $@\n$what" if $@;
76            return $what;
77  }  }
78    
79  1;  1;
Legend:
Removed from v.566  
changed lines
  Added in v.610
  ViewVC Help
Powered by ViewVC 1.1.26