| 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) { } |