lib/Frey/Session.pm

package Frey::Session;
use Moose::Role;

use DBM::Deep;
use Data::Dump qw/dump/;

has 'usage' => (
        is => 'rw',
        isa => 'DBM::Deep',
        lazy => 1,
        default => sub {
                DBM::Deep->new( 'var/usage.db' );
        },
);

sub data {
        my ($self) = @_;

        my $data;

        my $db = $self->usage;

        my $key = $db->first_key();
    while ($key) {
                $data->{$key} = $db->get($key);
                $key = $db->next_key($key);
        }

        return $data;
}

1;
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	dpavlin	432	$data->{$key} = $db->get($key);
26	dpavlin	428	$key = $db->next_key($key);
27			}
28
29			return $data;
30			}
31
32			1;