Parent Directory | Revision Log
use DBM::Deep to provide first Session store called '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 | |
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 |