/[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 565 by dpavlin, Thu Nov 27 21:04:35 2008 UTC revision 566 by dpavlin, Thu Nov 27 21:32:07 2008 UTC
# Line 7  __PACKAGE__->mkbasepath( 'var/session/so Line 7  __PACKAGE__->mkbasepath( 'var/session/so
7    
8  use DBM::Deep;  use DBM::Deep;
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    use Time::HiRes qw/time/;
11    
12  has 'usage' => (  has 'usage' => (
13          documentation => 'Track usage of classes for ClassBrowser',          documentation => 'Track usage of classes for ClassBrowser',
# Line 48  sub session_dump { Line 49  sub session_dump {
49          return $data;          return $data;
50  }  }
51    
   
52  sub TODO {  sub TODO {
53          my ( $self, $what ) = @_;          my ( $self, $what ) = @_;
54          eval {          eval {
55                  $self->bugs = {} unless defined $self->bugs; # bootstrap                  $self->bugs = {} unless defined $self->bugs; # bootstrap
56                  warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };                  warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
57                  $self->bugs->{TODO}->{ $what }->{ time() } = {  
58                          backtrace => caller,                  my ( $package, $path, $line ) = caller;
59    
60                    $self->bugs->{TODO}->{ $what } = {
61                            last_occured => time,
62                            'package' => $package,
63                            path => $path,
64                            line => $line,
65                  }                  }
66          };          };
67          warn "TODO ERROR: $@\n$what" if $@;          warn "TODO ERROR: $@\n$what" if $@;
Legend:
Removed from v.565  
changed lines
  Added in v.566
  ViewVC Help
Powered by ViewVC 1.1.26