Branch Coverage

blib/lib/Unicode/CharWidth.pm
Criterion Covered Total %
branch 5 22 22.7


line true false branch
39 0 1 if ($arg and $arg eq '-gen')
73 0 1 unless _read_startup($file)
79 0 0 unless (_effective_locale() =~ /\.UTF-8$/)
86 0 0 unless $ENV{'LC_CTYPE'} or $ENV{'LANG'} or $ENV{'LC_ALL'}
100 0 0 if ($width == $last_width) { }
127 0 0 if $from != $to
135 0 1 unless my $tab = eval { do { Storable::retrieve($file) } }
138 0 1 unless (_validate_proptab($tab))
147 0 0 unless _validate_proptab($proptab)
148 0 0 if (eval { do { Storable::nstore($proptab, $file); 1 } }) { }
172 1 0 if ref $tab eq 'HASH' and $ncn == grep({exists $$tab{$_};} ('InZerowidth', 'InSinglewidth', 'InDoublewidth', 'InNowidth')) and $ncn == grep({defined $$tab{$_};} ('InZerowidth', 'InSinglewidth', 'InDoublewidth', 'InNowidth'))