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 => " . dump( $db->get($key) ) . "\n";
                $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
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;