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