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' ) || {};
        },
);

sub add_usage {
        my ( $self, $class ) = @_;
        $self->usage->{$class}++;
        $self->store( 'var/session/usage.yaml', $self->usage );
}

=head2 TODO

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

=cut

our $bugs;

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,
                }
        };
        warn "TODO ERROR: $@\n$what" if $@;
        $self->store( 'var/session/bugs.yaml', $bugs );
        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	sub add_usage {
22	my ( $self, $class ) = @_;
23	$self->usage->{$class}++;
24	$self->store( 'var/session/usage.yaml', $self->usage );
25	}
26
27	=head2 TODO
28
29	my $TODO = $self->TODO( "message" );
30
31	=cut
32
33	our $bugs;
34
35	sub TODO {
36	my ( $self, $what ) = @_;
37	eval {
38	$bugs \|\|= $self->load( 'var/session/bugs.yaml' );
39
40	carp "TODO: $what" unless defined $bugs->{TODO}->{ $what };
41
42	my ( $package, $path, $line ) = caller;
43
44	$bugs->{TODO}->{ $what } = {
45	last_occured => time,
46	'package' => $package,
47	path => $path,
48	line => $line,
49	}
50	};
51	warn "TODO ERROR: $@\n$what" if $@;
52	$self->store( 'var/session/bugs.yaml', $bugs );
53	return $what;
54	}
55
56	no Moose::Role;
57
58	1;