Branch Coverage

blib/lib/Unicode/CharWidth.pm
Criterion Covered Total %
branch 6 24 25.0


line true false branch
39 0 2 if ($arg and $arg eq '-gen')
59 8 0 unless 'Unicode::CharWidth'->can($name)
74 0 2 unless _read_startup($file)
80 0 0 unless (_effective_locale() =~ /\.UTF-8$/)
87 0 0 unless $ENV{'LC_CTYPE'} or $ENV{'LANG'} or $ENV{'LC_ALL'}
101 0 0 if ($width == $last_width) { }
128 0 0 if $from != $to
136 0 2 unless my $tab = eval { do { Storable::retrieve($file) } }
139 0 2 unless (_validate_proptab($tab))
148 0 0 unless _validate_proptab($proptab)
149 0 0 if (eval { do { Storable::nstore($proptab, $file); 1 } }) { }
173 2 0 if ref $tab eq 'HASH' and $ncn == grep({exists $tab->{$_};} ('InZerowidth', 'InSinglewidth', 'InDoublewidth', 'InNowidth')) and $ncn == grep({defined $tab->{$_};} ('InZerowidth', 'InSinglewidth', 'InDoublewidth', 'InNowidth'))