Branch Coverage

blib/lib/HTML/CalendarMonth/DateTool.pm
Criterion Covered Total %
branch 37 90 41.1


line true false branch
32 308 153 unless ($tool)
34 308 660 if ($str =~ /^$_$/i)
40 0 461 unless $tool
53 1 309 unless ($self->{'year'})
59 152 158 if ($parms{'datetool'})
61 0 152 unless $self->{'datetool'} = $self->_toolmap($parms{'datetool'})
64 0 308 unless (eval "require $dc")
85 1 0 unless (defined $Cal_Cmd)
87 0 1 if ($Cal_Cmd)
101 0 0 if (@out == @pat) { }
103 0 0 unless ($out[$i] =~ /$pat[$i]/)
119 1 0 unless (defined $Ncal_Cmd)
121 0 1 if ($Ncal_Cmd)
141 0 0 if (@out == @pat) { }
143 0 0 unless ($out[$i] =~ /$pat[$i]/)
167 0 307 @_ ? :
176 307 1 @_ ? :
184 0 307 @_ ? :
186 307 0 if ($ts =~ /^\d+$/) { }
187 0 307 if (length $ts <= 2) { }
189 0 0 unless $ts >= 1 and $ts <= $self->lastday
198 0 0 unless defined $d
204 299 8 if $pivot gt $last
205 4 4 if $pivot lt $first
212 152 158 if (my $c = $self->datetool) { }
214 0 152 if $@
223 2 308 if (my $f = $self->$method) { }
231 308 2 if $dc
232 2 0 if (@tools == 1) { }
257 0 0 unless $y < 1752
262 0 310 unless $self->_timelocal_present
263 0 310 if $self->weeknum
265 2 308 if $y < 1970 or $y >= 2038
272 0 0 unless $self->_ncal_present
273 0 0 if $self->weeknum and $self->_is_julian
280 0 0 unless $self->_cal_present
281 0 0 if $self->weeknum
287 0 0 unless $self->_datecalc_present
288 0 0 if $self->historic and $self->_is_julian
295 0 0 unless $self->_datetime_present
296 0 0 if $self->historic and $self->_is_julian
303 0 0 unless $self->_datemanip_present
304 0 0 if $self->historic and $self->_is_julian
306 0 0 if require Date::Manip
307 0 0 if $@