| line |
true |
false |
branch |
|
37
|
0 |
0 |
unless my(@itans) = $self->file->slurp('chomp', 1)
|
|
44
|
0 |
0 |
unless my $sth = $self->dbh->prepare("INSERT INTO itan (tindex,itan,imported,valid,used,memo) VALUES (?,?,'${date}',1,NULL,NULL)")
|
|
49
|
0 |
0 |
if (not $line =~ /^(?<index>\d{1,4})\D+(?<tan>\d{4,8})$/) { }
|
|
54
|
0 |
0 |
if ($index eq '0')
|
|
62
|
0 |
0 |
if ($@) { }
|
|
|
0 |
0 |
elsif ($self->overwrite) { }
|
|
64
|
0 |
0 |
unless $sth->execute($index, $tan)
|
|
67
|
0 |
0 |
unless $self->dbh->do('UPDATE itan SET valid = 0 WHERE tindex = ' . $index)
|
|
70
|
0 |
0 |
unless $sth->execute($index, $tan)
|
|
79
|
0 |
0 |
if ($self->deletefile)
|