File Coverage

blib/lib/App/PerlWatcher/EventItem.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package App::PerlWatcher::EventItem;
2             {
3             $App::PerlWatcher::EventItem::VERSION = '0.20';
4             }
5             # ABSTRACT: Used to store event items (file lines, rss news headers and so on).
6              
7 6     6   98261 use 5.12.0;
  6         21  
  6         233  
8 6     6   32 use strict;
  6         12  
  6         167  
9 6     6   29 use warnings;
  6         9  
  6         228  
10              
11 6     6   1223 use Moo;
  6         32517  
  6         35  
12 6     6   6241 use App::PerlWatcher::Memory qw /memory_patch/;
  6         15  
  6         1013  
13              
14              
15             with qw/App::PerlWatcher::Memorizable/;
16              
17              
18             memory_patch(__PACKAGE__, 'content');
19              
20              
21             memory_patch(__PACKAGE__, 'timestamp');
22              
23             sub BUILD {
24 17     17 0 7029 my ($self, $init_args) = @_;
25 17         78 $self->content($init_args->{content});
26 17 50       61 $self->timestamp(time) unless($self->timestamp);
27             }
28              
29             1;
30              
31             __END__