File Coverage

blib/lib/App/Standup/Role/Date.pm
Criterion Covered Total %
statement 11 11 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 18 21 85.7


line stmt bran cond sub pod time code
1             package App::Standup::Role::Date;
2 2     2   15 use Object::Pad;
  2         4  
  2         14  
3 2     2   1941 use Time::Piece;
  2         37373  
  2         10  
4              
5             role Date {
6              
7 2     2   715 no warnings 'experimental';
  2         4  
  2         533  
8              
9             # For some reason, if we use localtime directly it doesn´t use Time::Piece:localtime one
10 19 50   19 0 63 field $date :accessor :param { Time::Piece::localtime };
  19     19 0 132  
        19      
11             }
12              
13              
14             =head1 NAME
15              
16             App::Standup::Role::Date - Date management for Standup::Diary
17              
18             =head1 SYNOPSIS
19              
20             class App::Standup::Diary :does( Date ) { ... }
21              
22             =head1 DESCRIPTION
23              
24             It provides an L role with an only C field based on
25             L.
26              
27             Any class implementing C have a C<$self->date> instance
28             field.
29              
30             =cut