/[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 434 by dpavlin, Wed Nov 19 01:21:31 2008 UTC revision 569 by dpavlin, Thu Nov 27 22:10:49 2008 UTC
# Line 1  Line 1 
1  package Frey::Session;  package Frey::Session;
2  use Moose::Role;  use Moose::Role;
3    
4    with 'Frey::Path';
5    
6    __PACKAGE__->mkbasepath( 'var/session/something.db' );
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    our $usage = DBM::Deep->new( 'var/session/usage.db' );
13  has 'usage' => (  has 'usage' => (
14            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/usage.db' );                  $usage
20          },          },
21  );  );
22    
23  sub data {  our $bugs = DBM::Deep->new( 'var/session/bugs.db' );
24    has 'bugs' => (
25            documentation => 'Track bugs within Frey',
26            is => 'rw',
27            isa => 'DBM::Deep',
28            lazy => 1,
29            default => sub {
30                    $bugs
31            },
32    );
33    sub as_data {
34          my ($self) = @_;          my ($self) = @_;
35          $self->session_dump( $self->usage );          {
36                    usage => $self->session_dump( $self->usage ),
37                    bugs => $self->session_dump( $self->bugs ),
38            }
39  }  }
40    
41  sub session_dump {  sub session_dump {
# Line 31  sub session_dump { Line 51  sub session_dump {
51          return $data;          return $data;
52  }  }
53    
54    sub TODO {
55            my ( $self, $what ) = @_;
56            eval {
57                    $self->bugs = {} unless defined $self->bugs; # bootstrap
58                    warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
59    
60                    my ( $package, $path, $line ) = caller;
61    
62                    $self->bugs->{TODO}->{ $what } = {
63                            last_occured => time,
64                            'package' => $package,
65                            path => $path,
66                            line => $line,
67                    }
68            };
69            warn "TODO ERROR: $@\n$what" if $@;
70    }
71    
72  1;  1;
Legend:
Removed from v.434  
changed lines
  Added in v.569
  ViewVC Help
Powered by ViewVC 1.1.26