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 (@_)
378 1 0 if ($input =~ /rgb\((\d+),(\d+),(\d+)\)/)
402 2 0 if ($rawfont =~ s/^([^,]+),//)
406 0 2 if ($rawfont =~ s/^([^\d]+)//)
412 2 0 if ($rawfont =~ s/^(\d+)//)
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 49 15 if ($inside) { }
445 1 48 if ($l eq $marker)
449 1 14 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 3 1 unless $_ eq "main"
548 1 33 unless defined $val
549 13 21 if ($name eq 'main') { }
573 0 7 unless (defined $group)
574 0 0 if $verbose
577 0 7 unless defined $members
578 0 7 unless defined $options
579 0 7 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 45 if $no_gtk
792 5 40 if defined $val
793 43 2 if (exists $gtksettings{$key}) { }
796 0 2 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
847 0 2 unless platformPermitted()
899 5 14 if (length $hex < 2)
914 0 2 unless platformPermitted()
917 2 0 if (open OFILE, '<', $cf) { }
920 140 0 if ($line =~ s/\@define-color\s//)
921 140 0 if ($line =~ /([^\s]+)\s([^;]+);/)
924 0 140 if $color =~ /^rgb\(/
932 0 0 if $verbose
936 2 0 if (open OFILE, '<', $sf) { }
939 22 2 if ($line =~ /([^=]+)=([^\n]+)/)
944 2 0 if (exists $gtksettings{'gtk-font-name'})
949 0 0 if $verbose
966 0 7 if $Tk::GtkSettings::Config{'osname'} eq "MSWin32" or $Tk::GtkSettings::Config{'osname'} eq "darwin"
1024 0 0 unless platformPermitted()
1025 0 0 if $no_gtk
1026 0 0 if (open OFILE, ">", $out_file)
1030 0 0 if $delete_output
1074 140 3594 if (substr($name, 0, length $key) eq $key)