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) = @_;
        $self->session_dump( $self->usage );
}

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

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

        return $data;
}

1;
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;