blib/lib/Unicode/Unihan.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 28 | 32.1 |
line | true | false | branch |
---|---|---|---|
18 | 0 | 2 | unless -d $dir |
24 | 0 | 88 | if ($self->{'-savemem'}) |
26 | 0 | 0 | if $k eq $name |
27 | 0 | 0 | if $k =~ /^[A-Z]/o |
30 | 88 | 0 | unless ($self->{$name}) |
34 | 0 | 88 | unless -f $file or -f "$file.dir" |
35 | 0 | 88 | unless tie %{$$self{$name};}, "AnyDBM_File", $file, 0, 292 |
43 | 0 | 0 | if (@_) { } |
45 | 0 | 0 | if $k =~ /^[A-Z]/o |
49 | 0 | 0 | if $k =~ /^[A-Z]/o |
56 | 0 | 2 | if $DEBUG |
66 | 0 | 88 | unless @_ |
67 | 0 | 88 | unless length $str |
68 | 0 | 88 | if (wantarray) { } |