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