Parent Directory | Revision Log
use DBM::Deep to provide first Session store called '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 | |||
19 | my $data; | ||
20 | |||
21 | my $db = $self->usage; | ||
22 | |||
23 | my $key = $db->first_key(); | ||
24 | while ($key) { | ||
25 | $data .= "$key => " . dump( $db->get($key) ) . "\n"; | ||
26 | $key = $db->next_key($key); | ||
27 | } | ||
28 | |||
29 | return $data; | ||
30 | } | ||
31 | |||
32 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |