lib/Frey/Session.pm

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

with 'Frey::Path', 'Frey::Storage';

use Data::Dump qw/dump/;
use Time::HiRes qw/time/;
use Carp qw/carp croak/;

has 'usage' => (
        documentation => 'Track usage of classes for ClassBrowser',
        is => 'rw',
        isa => 'HashRef|Undef',
        lazy => 1,
        default => sub {
                my $self = shift;
                $self->load( 'var/session/usage.yaml' ) || {};
        },
);

our $bugs;

sub add_usage {
        my ( $self, $class ) = @_;
        $self->usage->{$class}++;
        $self->store( 'var/session/usage.yaml', $self->usage );
        # FIXME triggering bugs savings just once on each request, but is cludge!
        $self->store( 'var/session/bugs.yaml', $bugs ) if delete $bugs->{save};
}

=head2 TODO

  my $TODO = $self->TODO( "message" );

=cut

sub TODO {
        my ( $self, $what ) = @_;
        eval {
                $bugs ||= $self->load( 'var/session/bugs.yaml' );

                carp "TODO: $what" unless defined $bugs->{TODO}->{ $what };

                my ( $package, $path, $line ) = caller;

                $bugs->{TODO}->{ $what } = {
                        last_occured => time,
                        'package' => $package,
                        path => $path,
                        line => $line,
                };
                $bugs->{save}++;
        };
        warn "TODO ERROR: $@\n$what" if $@;
        return $what;
}


no Moose::Role;

1;
1	package Frey::Session;
2	use Moose::Role;
3
4	with 'Frey::Path', 'Frey::Storage';
5
6	use Data::Dump qw/dump/;
7	use Time::HiRes qw/time/;
8	use Carp qw/carp croak/;
9
10	has 'usage' => (
11	documentation => 'Track usage of classes for ClassBrowser',
12	is => 'rw',
13	isa => 'HashRef\|Undef',
14	lazy => 1,
15	default => sub {
16	my $self = shift;
17	$self->load( 'var/session/usage.yaml' ) \|\| {};
18	},
19	);
20
21	our $bugs;
22
23	sub add_usage {
24	my ( $self, $class ) = @_;
25	$self->usage->{$class}++;
26	$self->store( 'var/session/usage.yaml', $self->usage );
27	# FIXME triggering bugs savings just once on each request, but is cludge!
28	$self->store( 'var/session/bugs.yaml', $bugs ) if delete $bugs->{save};
29	}
30
31	=head2 TODO
32
33	my $TODO = $self->TODO( "message" );
34
35	=cut
36
37	sub TODO {
38	my ( $self, $what ) = @_;
39	eval {
40	$bugs \|\|= $self->load( 'var/session/bugs.yaml' );
41
42	carp "TODO: $what" unless defined $bugs->{TODO}->{ $what };
43
44	my ( $package, $path, $line ) = caller;
45
46	$bugs->{TODO}->{ $what } = {
47	last_occured => time,
48	'package' => $package,
49	path => $path,
50	line => $line,
51	};
52	$bugs->{save}++;
53	};
54	warn "TODO ERROR: $@\n$what" if $@;
55	return $what;
56	}
57
58
59	no Moose::Role;
60
61	1;