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	dpavlin	428	package Frey::Session;
2			use Moose::Role;
3
4	dpavlin	562	with 'Frey::Path';
5
6			__PACKAGE__->mkbasepath( 'var/session/something.db' );
7
8	dpavlin	428	use DBM::Deep;
9			use Data::Dump qw/dump/;
10
11			has 'usage' => (
12	dpavlin	562	documentation => 'Track usage of classes for ClassBrowser',
13	dpavlin	428	is => 'rw',
14			isa => 'DBM::Deep',
15			lazy => 1,
16			default => sub {
17	dpavlin	562	DBM::Deep->new( 'var/session/usage.db' );
18	dpavlin	428	},
19			);
20
21	dpavlin	562	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	dpavlin	455	sub as_data {
31	dpavlin	428	my ($self) = @_;
32	dpavlin	562	{
33			usage => $self->session_dump( $self->usage ),
34			bugs => $self->session_dump( $self->bugs ),
35			}
36	dpavlin	434	}
37	dpavlin	428
38	dpavlin	434	sub session_dump {
39			my ($self,$db) = @_;
40	dpavlin	428	my $data;
41
42			my $key = $db->first_key();
43			while ($key) {
44	dpavlin	432	$data->{$key} = $db->get($key);
45	dpavlin	428	$key = $db->next_key($key);
46			}
47
48			return $data;
49			}
50
51	dpavlin	562
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	dpavlin	428	1;