/[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 627 by dpavlin, Sat Nov 29 22:02:08 2008 UTC
# Line 8  __PACKAGE__->mkbasepath( 'var/session/so Line 8  __PACKAGE__->mkbasepath( 'var/session/so
8  use DBM::Deep;  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    use Carp qw/croak/;
12    
13    our $usage = DBM::Deep->new( 'var/session/usage.db' );
14  has 'usage' => (  has 'usage' => (
15          documentation => 'Track usage of classes for ClassBrowser',          documentation => 'Track usage of classes for ClassBrowser',
16          is => 'rw',          is => 'rw',
17          isa => 'DBM::Deep',          isa => 'DBM::Deep',
18          lazy => 1,          lazy => 1,
19          default => sub {          default => sub {
20                  DBM::Deep->new( 'var/session/usage.db' );                  $usage
21          },          },
22  );  );
23    
24    our $bugs = DBM::Deep->new( 'var/session/bugs.db' );
25  has 'bugs' => (  has 'bugs' => (
26          documentation => 'Track bugs within Frey',          documentation => 'Track bugs within Frey',
27          is => 'rw',          is => 'rw',
28          isa => 'DBM::Deep',          isa => 'DBM::Deep',
29          lazy => 1,          lazy => 1,
30          default => sub {          default => sub {
31                  DBM::Deep->new( 'var/session/bugs.db' );                  $bugs
32          },          },
33  );  );
34  sub as_data {  sub as_data {
# Line 49  sub session_dump { Line 52  sub session_dump {
52          return $data;          return $data;
53  }  }
54    
55    =head2 TODO
56    
57      my $TODO = $self->TODO( "message" );
58    
59    =cut
60    
61  sub TODO {  sub TODO {
62          my ( $self, $what ) = @_;          my ( $self, $what ) = @_;
63          eval {          eval {
64                  $self->bugs = {} unless defined $self->bugs; # bootstrap                  $self->bugs = {} unless defined $self->bugs; # bootstrap
65                  warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };                  croak "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
66    
67                  my ( $package, $path, $line ) = caller;                  my ( $package, $path, $line ) = caller;
68    
# Line 65  sub TODO { Line 74  sub TODO {
74                  }                  }
75          };          };
76          warn "TODO ERROR: $@\n$what" if $@;          warn "TODO ERROR: $@\n$what" if $@;
77            return $what;
78  }  }
79    
80  1;  1;
Legend:
Removed from v.566  
changed lines
  Added in v.627
  ViewVC Help
Powered by ViewVC 1.1.26