File Coverage

t/now.t
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1 1     1   27269 use strict;
  1         2  
  1         40  
2 1     1   4 use warnings;
  1         1  
  1         21  
3 1     1   11 use v5.12;
  1         3  
  1         28  
4              
5 1     1   336 use Test::More tests => 6;
  1         11106  
  1         6  
6              
7 1     1   445 use Sweet::Now;
  1         6  
  1         1481  
8              
9 1         96906 my $now = Sweet::Now->new;
10              
11 1         5 ok $now->dd =~ m/\d\d/;
12 1         462 ok $now->mm =~ m/\d\d/;
13 1         178 ok $now->yyyy =~ m/\d\d\d\d/;
14 1         176 ok $now->yyyymmdd =~ m/\d\d\d\d\d\d/;
15 1         194 ok $now->yyyymmddhhmiss =~ m/\d\d\d\d\d\d\d\d\d\d\d\d/;
16 1         158 ok $now->hhmiss =~ m/\d\d\d\d\d\d/;
17              
18