| line |
true |
false |
branch |
|
34
|
0 |
3 |
unless defined $args{-'pesel'} |
|
49
|
0 |
15 |
unless defined $$self{-'pesel'} |
|
52
|
0 |
15 |
unless $$self{-'pesel'} =~ /^(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)$/ |
|
55
|
2 |
13 |
unless $checksum == 0 |
|
56
|
0 |
15 |
unless $11 == $checksum |
|
58
|
7 |
8 |
unless ($args{-'dont_check_date'}) |
|
60
|
4 |
3 |
unless eval {
do {
$self->birth_date
}
} |
|
72
|
0 |
2 |
unless defined $$self{-'pesel'} |
|
73
|
1 |
1 |
unless $self->is_valid |
|
74
|
0 |
1 |
unless $$self{-'pesel'} =~ /^\d{9}(\d)\d$/ |
|
76
|
1 |
0 |
if $1 % 2 == 0 |
|
83
|
0 |
2 |
unless defined $$self{-'pesel'} |
|
84
|
1 |
1 |
unless $self->is_valid |
|
85
|
0 |
1 |
unless $$self{-'pesel'} =~ /^\d{9}(\d)\d$/ |
|
87
|
1 |
0 |
if $1 % 2 == 0 |
|
96
|
0 |
8 |
unless defined $$self{-'pesel'} |
|
97
|
0 |
8 |
unless $self->is_valid(-'dont_check_date', 1) |
|
98
|
0 |
8 |
unless ($year, $month, $day) = $$self{-'pesel'} =~ /^(\d{2})(\d{2})(\d{2})\d{5}$/ |
|
100
|
0 |
8 |
if ($month - 80 > 0) { } |
|
|
0 |
8 |
elsif ($month - 60 > 0) { } |
|
|
0 |
8 |
elsif ($month - 40 > 0) { } |
|
|
0 |
8 |
elsif ($month - 20 > 0) { } |
|
122
|
3 |
5 |
unless eval {
do {
$tp = 'Time::Piece'->strptime($date, '%d-%m-%Y')
}
} |
|
126
|
1 |
4 |
if $date ne $tp->strftime('%d-%m-%Y') |