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