Branch Coverage

blib/lib/Tk/GtkSettings.pm
Criterion Covered Total %
branch 78 162 48.1


line true false branch
313 3 12 if ($_ < 128) { }
315 0 3 if $c < 0
319 0 12 if $c > 255
356 1 0 if (@_)
376 1 0 if ($input =~ /rgb\((\d+),(\d+),(\d+)\)/)
400 2 0 if ($rawfont =~ s/^([^,]+),//)
404 0 2 if ($rawfont =~ s/^([^\d]+)//)
410 2 0 if ($rawfont =~ s/^(\d+)//)
432 0 2 if $no_gtk
433 0 2 unless platformPermitted()
434 1 1 unless defined $remove
437 2 0 if (-e $file)
438 0 2 unless (open XDEF, "<$file")
439 0 0 if $verbose
444 46 13 if ($inside) { }
445 1 45 if ($l eq $marker)
449 1 12 if ($l eq $marker) { }
452 0 1 unless $remove
460 1 1 unless ($found)
463 0 2 unless (open XDEFO, ">$file")
464 0 0 if $verbose
510 0 0 unless platformPermitted()
511 0 0 if $no_gtk
512 0 0 if (open OFILE, ">", $out_file)
516 0 0 if $delete_output
531 0 1 if $no_gtk
532 0 1 unless platformPermitted()
537 2 1 unless $_ eq "main"
548 0 45 unless defined $val
549 13 32 if ($name eq 'main') { }
573 0 5 unless (defined $group)
574 0 0 if $verbose
577 0 5 unless defined $members
578 0 5 unless defined $options
579 0 5 if (exists $groups{$group}) { }
582 0 0 if $verbose
612 2 0 if (groupExists($group))
613 1 1 if ($group eq "main")
614 0 1 if $verbose
634 0 41 unless (defined $group)
635 0 0 if $verbose
638 1 40 unless (exists $groups{$group})
639 0 1 if $verbose
658 2 0 if (groupExists($group))
659 0 2 if ($group eq "main")
680 1 0 if (groupExists($group))
681 0 1 if ($group eq "main")
702 1 0 if (groupExists($group))
703 0 1 if ($group eq "main")
725 29 0 if (groupExists($group))
727 0 29 unless (defined $option)
728 0 0 if $verbose
731 27 2 if (@_)
751 2 0 if (groupExists($group))
769 1 0 if (groupExists($group))
771 0 1 unless (defined $option)
772 0 0 if $verbose
791 0 56 if $no_gtk
792 5 51 if defined $val
793 55 1 if (exists $gtksettings{$key}) { }
796 0 1 if $verbose
812 0 0 if $no_gtk
828 0 1 if $no_gtk
829 1 0 if (exists $gtksettings{$key}) { }
832 0 0 if $verbose
897 5 14 if (length $hex < 2)
914 2 0 if (open OFILE, '<', $cf) { }
917 140 0 if ($line =~ s/\@define-color\s//)
918 140 0 if ($line =~ /([^\s]+)\s([^;]+);/)
921 0 140 if $color =~ /^rgb\(/
929 0 0 if $verbose
933 2 0 if (open OFILE, '<', $sf) { }
936 22 2 if ($line =~ /([^=]+)=([^\n]+)/)
941 2 0 if (exists $gtksettings{'gtk-font-name'})
946 0 0 if $verbose
963 0 5 if $^O eq "MSWin32" or $^O eq "darwin"
1021 0 0 unless platformPermitted()
1022 0 0 if $no_gtk
1023 0 0 if (open OFILE, ">", $out_file)
1027 0 0 if $delete_output
1071 140 3594 if (substr($name, 0, length $key) eq $key)