Branch Coverage

blib/lib/Tk/GtkSettings.pm
Criterion Covered Total %
branch 79 164 48.1


line true false branch
314 3 12 if ($_ < 128) { }
316 0 3 if $c < 0
320 0 12 if $c > 255
340 0 0 unless platformPermitted()
358 1 0 if (@_)
380 1 0 if ($input =~ /rgb\((\d+),(\d+),(\d+)\)/)
403 2 0 if ($rawfont =~ s/^([^,]+),//)
407 0 2 if ($rawfont =~ s/^([^\d]+)//)
413 2 0 if ($rawfont =~ s/^(\d+)//)
435 1 1 unless defined $remove
438 2 0 if (-e $file)
439 0 2 unless (open XDEF, "<$file")
440 0 0 if $verbose
445 36 17 if ($inside) { }
446 1 35 if ($l eq $marker)
450 1 16 if ($l eq $marker) { }
453 0 1 unless $remove
461 1 1 unless ($found)
464 0 2 unless (open XDEFO, ">$file")
465 0 0 if $verbose
511 0 0 unless platformPermitted()
512 0 0 if $no_gtk
513 0 0 if (open OFILE, ">", $out_file)
517 0 0 if $delete_output
532 0 1 if $no_gtk
533 0 1 unless platformPermitted()
538 3 1 unless $_ eq "main"
549 2 33 unless defined $val
550 13 22 if ($name eq 'main') { }
574 0 7 unless (defined $group)
575 0 0 if $verbose
578 0 7 unless defined $members
579 0 7 unless defined $options
580 0 7 if (exists $groups{$group}) { }
583 0 0 if $verbose
613 2 0 if (groupExists($group))
614 1 1 if ($group eq "main")
615 0 1 if $verbose
635 0 41 unless (defined $group)
636 0 0 if $verbose
639 1 40 unless (exists $groups{$group})
640 0 1 if $verbose
659 2 0 if (groupExists($group))
660 0 2 if ($group eq "main")
681 1 0 if (groupExists($group))
682 0 1 if ($group eq "main")
703 1 0 if (groupExists($group))
704 0 1 if ($group eq "main")
726 29 0 if (groupExists($group))
728 0 29 unless (defined $option)
729 0 0 if $verbose
732 27 2 if (@_)
752 2 0 if (groupExists($group))
770 1 0 if (groupExists($group))
772 0 1 unless (defined $option)
773 0 0 if $verbose
792 0 46 if $no_gtk
793 5 41 if defined $val
794 43 3 if (exists $gtksettings{$key}) { }
797 0 3 if $verbose
813 0 0 if $no_gtk
829 0 1 if $no_gtk
830 1 0 if (exists $gtksettings{$key}) { }
833 0 0 if $verbose
848 0 2 unless platformPermitted()
900 5 14 if (length $hex < 2)
915 0 2 unless platformPermitted()
918 2 0 if (open OFILE, '<', $cf) { }
921 140 0 if ($line =~ s/\@define-color\s//)
922 140 0 if ($line =~ /([^\s]+)\s([^;]+);/)
925 0 140 if $color =~ /^rgb\(/
933 0 0 if $verbose
937 2 0 if (open OFILE, '<', $sf) { }
940 22 2 if ($line =~ /([^=]+)=([^\n]+)/)
945 2 0 if (exists $gtksettings{'gtk-font-name'})
950 0 0 if $verbose
967 0 7 if $Tk::GtkSettings::Config{'osname'} eq "MSWin32" or $Tk::GtkSettings::Config{'osname'} eq "darwin"
1025 0 0 unless platformPermitted()
1026 0 0 if $no_gtk
1027 0 0 if (open OFILE, ">", $out_file)
1031 0 0 if $delete_output
1075 140 3594 if (substr($name, 0, length $key) eq $key)