Branch Coverage

blib/lib/App/Greple/pw.pm
Criterion Covered Total %
branch 2 96 2.0


line true false branch
365 0 0 if (defined $val) { }
383 0 0 unless (command_loop($pw))
392 13 0 if $execution == 0
393 0 0 if config("clear_clipboard")
394 0 0 if config("goto_home")
395 0 0 if config("clear_screen")
396 0 0 if config("clear_buffer")
400 0 0 if (config("debug"))
411 0 0 unless open TTY, "/dev/tty"
420 0 0 if (config("timeout"))
423 0 0 if config("debug")
425 0 0 unless /\S/u
430 0 0 if (my $id = $pw->id($_)) { }
0 0 elsif (my $pass = $pw->pw($_)) { }
431 0 0 if (copy($id))
437 0 0 if (copy($pass))
443 0 0 if (do { /^dump\b/u }) { }
0 0 elsif (/^N/iu) { }
0 0 elsif (/^P/iu) { }
0 0 elsif (/^Q/iu) { }
0 0 elsif (/^V/iu) { }
0 0 elsif (/^show\b/iu) { }
0 0 elsif (/^orig\b/iu) { }
0 0 elsif (s/^input\s*//iu) { }
0 0 elsif (/^set$/u) { }
0 0 elsif (s/^set\s+//u) { }
0 0 elsif (/^([A-J]\d\s*)+$/iu) { }
451 0 0 if (@option == 0) { }
481 0 0 if config("debug")
483 0 0 if (/^([a-z]\d\s*){2,}$/iu) { }
484 0 0 if (m[^/(.+)/$]u) { }
485 0 0 unless $field{$_}
487 0 0 unless $field{$_}
490 0 0 if config("debug")
510 0 0 if (exists $config->{$var}) { }
546 15 0 if (not $@) { }
0 0 elsif (-x '/usr/bin/pbcopy') { }
562 0 0 if (not $clipboard) { }
0 0 elsif ($clipboard eq 'Clipboard') { }
0 0 elsif ($clipboard eq 'pbcopy') { }
578 0 0 unless open COM, "| $command"
585 0 0 if $_[0] eq "to"
592 0 0 if config("debug")
593 0 0 if ((open(CMD, '-|') // die()) == 0) { }
594 0 0 unless exec "osascript", "-e", $script
598 0 0 if config("debug")
599 0 0 $result =~ /missing value/u ? :
654 0 0 if defined $value