Branch Coverage

blib/lib/Tk/GtkSettings.pm
Criterion Covered Total %
branch 72 166 43.3


line true false branch
299 3 0 if ($_ < 128) { }
301 0 3 if $c < 0
305 0 0 if $c > 255
321 0 0 unless platformPermitted()
335 1 0 if (@_)
353 1 0 if ($input =~ /rgb\((\d+),(\d+),(\d+)\)/)
372 2 0 if ($rawfont =~ s/^([^,]+),//)
376 0 2 if ($rawfont =~ s/^([^\d]+)//)
382 2 0 if ($rawfont =~ s/^(\d+)//)
400 1 1 unless defined $remove
403 2 0 if (-e $file)
404 0 2 unless (open XDEF, "<$file")
405 0 0 if $verbose
410 0 53 if ($inside) { }
411 0 0 if ($l eq $marker)
415 0 53 if ($l eq $marker) { }
418 0 0 unless $remove
426 2 0 unless ($found)
429 0 2 unless (open XDEFO, ">$file")
430 0 0 if $verbose
464 0 0 unless platformPermitted()
465 0 0 if $no_gtk
466 0 0 if (open OFILE, ">", $out_file)
470 0 0 if $delete_output
481 0 2 if $no_gtk
482 0 2 unless platformPermitted()
487 6 2 unless $_ eq "main"
498 24 60 unless defined $val
499 40 44 if ($name eq 'main') { }
519 0 7 unless (defined $group)
520 0 0 if $verbose
523 0 7 unless defined $members
524 0 7 unless defined $options
525 0 7 if (exists $groups{$group}) { }
528 0 0 if $verbose
550 2 0 if (groupExists($group))
551 1 1 if ($group eq "main")
552 0 1 if $verbose
568 0 57 unless (defined $group)
569 0 0 if $verbose
572 1 56 unless (exists $groups{$group})
573 0 1 if $verbose
588 2 0 if (groupExists($group))
589 0 2 if ($group eq "main")
606 1 0 if (groupExists($group))
607 0 1 if ($group eq "main")
624 1 0 if (groupExists($group))
625 0 1 if ($group eq "main")
643 45 0 if (groupExists($group))
645 0 45 unless (defined $option)
646 0 0 if $verbose
649 43 2 if (@_)
665 2 0 if (groupExists($group))
679 1 0 if (groupExists($group))
681 0 1 unless (defined $option)
682 0 0 if $verbose
697 0 89 if $no_gtk
698 1 88 if defined $val
699 64 25 if (exists $gtksettings{$key}) { }
702 0 25 if $verbose
714 0 0 if $no_gtk
726 0 1 if $no_gtk
727 1 0 if (exists $gtksettings{$key}) { }
730 0 0 if $verbose
761 5 2 if (length $hex < 2)
772 0 2 unless platformPermitted()
780 2 0 if defined $iconlib
799 0 2 unless platformPermitted()
802 2 0 if (open OFILE, '<', $cf) { }
805 140 0 if ($line =~ s/\@define-color\s//)
806 140 0 if ($line =~ /([^\s]+)\s([^;]+);/)
809 0 140 if $color =~ /^rgb\(/
817 0 0 if $verbose
821 2 0 if (open OFILE, '<', $sf) { }
824 22 2 if ($line =~ /([^=]+)=([^\n]+)/)
829 2 0 if (exists $gtksettings{'gtk-font-name'})
834 0 0 if $verbose
847 0 8 if $Tk::GtkSettings::Config{'osname'} eq "MSWin32" or $Tk::GtkSettings::Config{'osname'} eq "darwin"
889 0 0 unless platformPermitted()
890 0 0 if $no_gtk
891 0 0 if (open OFILE, ">", $out_file)
895 0 0 if $delete_output
931 140 3594 if (substr($name, 0, length $key) eq $key)