| line |
true |
false |
branch |
|
31
|
2562 |
1 |
if defined $date |
|
64
|
0 |
2562 |
unless (defined $date) |
|
71
|
1 |
2561 |
if ('Date::Tolkien::Shire' eq $ref) { } |
|
|
2561 |
0 |
elsif (not $ref) { } |
|
109
|
2523 |
38 |
if ($shire_month) { } |
|
128
|
0 |
3 |
unless $legal{$key} |
|
131
|
0 |
3 |
unless $arg{$key} =~ / \A [0-9]+ \z /msx |
|
137
|
0 |
1 |
unless defined $arg{'year'} |
|
139
|
1 |
0 |
if ($arg{'month'}) { } |
|
141
|
0 |
1 |
if $arg{'holiday'} |
|
143
|
1 |
0 |
if ($arg{'month'}) { } |
|
179
|
0 |
2561 |
unless $self->_has_date |
|
203
|
2561 |
14165 |
if $greg_day <= $monthlen[$greg_month] |
|
220
|
0 |
1 |
unless $self->_has_date |
|
229
|
0 |
0 |
unless $self->_has_date |
|
238
|
0 |
1 |
unless $self->_has_date |
|
247
|
0 |
1 |
unless $self->_has_date |
|
256
|
0 |
1 |
unless $self->_has_date |
|
265
|
0 |
0 |
unless $self->_has_date |
|
274
|
0 |
2562 |
unless $self->_has_date |
|
291
|
0 |
2 |
if $ERROR |
|
293
|
0 |
2 |
if $ERROR |
|
316
|
0 |
2561 |
unless $self->_has_date |
|
320
|
0 |
2561 |
wantarray ? : |
|
333
|
0 |
7688 |
unless $self->_has_date |
|
342
|
0 |
5126 |
unless $self->_has_date |
|
351
|
0 |
2553 |
unless $self->_has_date |
|
379
|
0 |
23055 |
if (grep {not defined $self->{$_};} 'holiday', 'month', 'monthday', 'weekday', 'year') { } |