| line |
true |
false |
branch |
|
38
|
0 |
0 |
if defined $one xor defined $two |
|
39
|
0 |
0 |
unless defined $one |
|
48
|
0 |
0 |
if defined $one xor defined $two |
|
49
|
0 |
0 |
unless defined $one |
|
55
|
0 |
0 |
if (defined $price) { } |
|
102
|
0 |
0 |
unless 'Config::Tiny'->read("$fn", 'utf8') |
|
130
|
0 |
0 |
unless $exists |
|
139
|
0 |
0 |
if ($self->has_dbh) |
|
165
|
0 |
0 |
unless ($config_file->is_file) |
|
166
|
0 |
0 |
if $config_file->is_dir |
|
186
|
0 |
0 |
if (my $editor = $ENV{'VISUAL'} || $ENV{'EDITOR'}) |
|
268
|
0 |
0 |
unless defined $_ |
|
307
|
0 |
0 |
if ($book_row) { } |
|
309
|
0 |
0 |
unless (_eq($$book_row{'title'}, $$book{'title'}) and _eq($$book_row{'author'}, $$book{'author'})) |
|
325
|
0 |
0 |
if (exists $$existing_priority{$ean}) { } |
|
327
|
0 |
0 |
unless (_numEq($$book{'priority'}, $$existing_priority{$ean})) |
|
343
|
0 |
0 |
unless defined $price |
|
351
|
0 |
0 |
if ($current_price_row and _numEq($$current_price_row{'price'}, $$book{'price'}) and _numEq($$current_price_row{'list_price'}, $$book{'list_price'}) and _numEq($$current_price_row{'discount'}, $$book{'discount'})) { } |
|
360
|
0 |
0 |
if ($current_price_row) |
|
384
|
0 |
0 |
unless $$updates{$a}{'new'}{'price'} <=> $$updates{$b}{'new'}{'price'} |
|
389
|
0 |
0 |
if $old and defined $$new{'price'} |
|
422
|
0 |
0 |
unless (defined $wishlist_id) |
|
443
|
0 |
0 |
if (my $old = $$updates{$_}{'old'}) |
|
460
|
0 |
0 |
unless my(@eans) = $self->reduced_price_eans |
|
476
|
0 |
0 |
@eans > 2 ? : |
|
505
|
0 |
0 |
if ($all_history or @$books == 1) { } |
|
562
|
0 |
0 |
$$row{'list_price'} ? : |
|
|
0 |
0 |
$$row{'discount'} ? : |
|
581
|
0 |
0 |
unless $$updates{$a}{'new'}{'title'} cmp $$updates{$b}{'new'}{'title'} |
|
596
|
0 |
0 |
if $_[1] eq 'userid' and $_[4] eq '.barnesandnoble.com' and $_[8] > $min_expires |
|
616
|
0 |
0 |
unless $self->have_user_cookie |
|
619
|
0 |
0 |
if $wishlist eq '_' |
|
623
|
0 |
0 |
unless (@$books) |
|
642
|
0 |
0 |
if $_[0] and $_[0] eq 'version' |
|
679
|
0 |
0 |
unless $getopt->getoptionsfromarray(\@args, 'all-history|a', \$all_history, 'email|e', \$send_email, 'quiet|q', \$quiet, 'since|s=s', \$since_date, 'update|u', \$fetch_wishlist, 'configure', sub {
$self->configure;
exit;
}
, 'help', $usage, 'version', $usage) |
|
685
|
0 |
0 |
if ($fetch_wishlist or $send_email) { } |
|
|
0 |
0 |
elsif (not @args || $since_date) { } |
|
688
|
0 |
0 |
if $send_email |
|
689
|
0 |
0 |
unless $quiet |
|
692
|
0 |
0 |
if ($self->config_file->is_file) { } |
|
699
|
0 |
0 |
if ($since_date) |
|
705
|
0 |
0 |
if ($arg =~ /^[0-9]{13}\z/) { } |