File Coverage

blib/lib/Standup/Role/Date.pm
Criterion Covered Total %
statement 8 8 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 14 17 82.3


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