Parent Directory | Revision Log
sort classes in ClassBrowser by usage
1 | dpavlin | 428 | 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 | dpavlin | 434 | $self->session_dump( $self->usage ); |
19 | } | ||
20 | dpavlin | 428 | |
21 | dpavlin | 434 | sub session_dump { |
22 | my ($self,$db) = @_; | ||
23 | dpavlin | 428 | my $data; |
24 | |||
25 | my $key = $db->first_key(); | ||
26 | while ($key) { | ||
27 | dpavlin | 432 | $data->{$key} = $db->get($key); |
28 | dpavlin | 428 | $key = $db->next_key($key); |
29 | } | ||
30 | |||
31 | return $data; | ||
32 | } | ||
33 | |||
34 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |