lib/Frey/Session.pm

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

with 'Frey::Path';

__PACKAGE__->mkbasepath( 'var/session/something.db' );

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

has 'usage' => (
        documentation => 'Track usage of classes for ClassBrowser',
        is => 'rw',
        isa => 'DBM::Deep',
        lazy => 1,
        default => sub {
                DBM::Deep->new( 'var/session/usage.db' );
        },
);

has 'bugs' => (
        documentation => 'Track bugs within Frey',
        is => 'rw',
        isa => 'DBM::Deep',
        lazy => 1,
        default => sub {
                DBM::Deep->new( 'var/session/bugs.db' );
        },
);
sub as_data {
        my ($self) = @_;
        {
                usage => $self->session_dump( $self->usage ),
                bugs => $self->session_dump( $self->bugs ),
        }
}

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


sub TODO {
        my ( $self, $what ) = @_;
        eval {
                $self->bugs = {} unless defined $self->bugs; # bootstrap
                warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
                $self->bugs->{TODO}->{ $what }->{ time() } = {
                        backtrace => caller,
                }
        };
        warn "TODO ERROR: $@\n$what" if $@;
}

1;
1	package Frey::Session;
2	use Moose::Role;
3
4	with 'Frey::Path';
5
6	__PACKAGE__->mkbasepath( 'var/session/something.db' );
7
8	use DBM::Deep;
9	use Data::Dump qw/dump/;
10
11	has 'usage' => (
12	documentation => 'Track usage of classes for ClassBrowser',
13	is => 'rw',
14	isa => 'DBM::Deep',
15	lazy => 1,
16	default => sub {
17	DBM::Deep->new( 'var/session/usage.db' );
18	},
19	);
20
21	has 'bugs' => (
22	documentation => 'Track bugs within Frey',
23	is => 'rw',
24	isa => 'DBM::Deep',
25	lazy => 1,
26	default => sub {
27	DBM::Deep->new( 'var/session/bugs.db' );
28	},
29	);
30	sub as_data {
31	my ($self) = @_;
32	{
33	usage => $self->session_dump( $self->usage ),
34	bugs => $self->session_dump( $self->bugs ),
35	}
36	}
37
38	sub session_dump {
39	my ($self,$db) = @_;
40	my $data;
41
42	my $key = $db->first_key();
43	while ($key) {
44	$data->{$key} = $db->get($key);
45	$key = $db->next_key($key);
46	}
47
48	return $data;
49	}
50
51
52	sub TODO {
53	my ( $self, $what ) = @_;
54	eval {
55	$self->bugs = {} unless defined $self->bugs; # bootstrap
56	warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what };
57	$self->bugs->{TODO}->{ $what }->{ time() } = {
58	backtrace => caller,
59	}
60	};
61	warn "TODO ERROR: $@\n$what" if $@;
62	}
63
64	1;