7 |
|
|
8 |
use DBM::Deep; |
use DBM::Deep; |
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
|
use Time::HiRes qw/time/; |
11 |
|
|
12 |
has 'usage' => ( |
has 'usage' => ( |
13 |
documentation => 'Track usage of classes for ClassBrowser', |
documentation => 'Track usage of classes for ClassBrowser', |
49 |
return $data; |
return $data; |
50 |
} |
} |
51 |
|
|
|
|
|
52 |
sub TODO { |
sub TODO { |
53 |
my ( $self, $what ) = @_; |
my ( $self, $what ) = @_; |
54 |
eval { |
eval { |
55 |
$self->bugs = {} unless defined $self->bugs; # bootstrap |
$self->bugs = {} unless defined $self->bugs; # bootstrap |
56 |
warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what }; |
warn "TODO: $what" unless defined $self->bugs->{TODO}->{ $what }; |
57 |
$self->bugs->{TODO}->{ $what }->{ time() } = { |
|
58 |
backtrace => caller, |
my ( $package, $path, $line ) = caller; |
59 |
|
|
60 |
|
$self->bugs->{TODO}->{ $what } = { |
61 |
|
last_occured => time, |
62 |
|
'package' => $package, |
63 |
|
path => $path, |
64 |
|
line => $line, |
65 |
} |
} |
66 |
}; |
}; |
67 |
warn "TODO ERROR: $@\n$what" if $@; |
warn "TODO ERROR: $@\n$what" if $@; |