Parent Directory | Revision Log
sort classes in ClassBrowser by usage
1 | package Frey::Session; |
2 | use Moose::Role; |
3 | |
4 | use DBM::Deep; |
5 | use Data::Dump qw/dump/; |
6 | |
7 | has 'usage' => ( |
8 | is => 'rw', |
9 | isa => 'DBM::Deep', |
10 | lazy => 1, |
11 | default => sub { |
12 | DBM::Deep->new( 'var/usage.db' ); |
13 | }, |
14 | ); |
15 | |
16 | sub data { |
17 | my ($self) = @_; |
18 | $self->session_dump( $self->usage ); |
19 | } |
20 | |
21 | sub session_dump { |
22 | my ($self,$db) = @_; |
23 | my $data; |
24 | |
25 | my $key = $db->first_key(); |
26 | while ($key) { |
27 | $data->{$key} = $db->get($key); |
28 | $key = $db->next_key($key); |
29 | } |
30 | |
31 | return $data; |
32 | } |
33 | |
34 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |