/[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 1158 by dpavlin, Wed Jul 1 17:20:16 2009 UTC revision 1159 by dpavlin, Thu Jul 2 15:31:41 2009 UTC
# Line 18  has 'usage' => ( Line 18  has 'usage' => (
18          },          },
19  );  );
20    
21    our $bugs;
22    
23  sub add_usage {  sub add_usage {
24          my ( $self, $class ) = @_;          my ( $self, $class ) = @_;
25          $self->usage->{$class}++;          $self->usage->{$class}++;
26          $self->store( 'var/session/usage.yaml', $self->usage );          $self->store( 'var/session/usage.yaml', $self->usage );
27            # FIXME triggering bugs savings just once on each request, but is cludge!
28            $self->store( 'var/session/bugs.yaml', $bugs ) if delete $bugs->{save};
29  }  }
30    
31  =head2 TODO  =head2 TODO
# Line 30  sub add_usage { Line 34  sub add_usage {
34    
35  =cut  =cut
36    
 our $bugs;  
   
37  sub TODO {  sub TODO {
38          my ( $self, $what ) = @_;          my ( $self, $what ) = @_;
39          eval {          eval {
# Line 46  sub TODO { Line 48  sub TODO {
48                          'package' => $package,                          'package' => $package,
49                          path => $path,                          path => $path,
50                          line => $line,                          line => $line,
51                  }                  };
52                    $bugs->{save}++;
53          };          };
54          warn "TODO ERROR: $@\n$what" if $@;          warn "TODO ERROR: $@\n$what" if $@;
         $self->store( 'var/session/bugs.yaml', $bugs );  
55          return $what;          return $what;
56  }  }
57    
58    
59  no Moose::Role;  no Moose::Role;
60    
61  1;  1;
Legend:
Removed from v.1158  
changed lines
  Added in v.1159
  ViewVC Help
Powered by ViewVC 1.1.26