| line |
true |
false |
branch |
|
14
|
0 |
2 |
ref $_[0] ? : |
|
19
|
0 |
2 |
if (exists $config{'text'}) |
|
20
|
0 |
0 |
if exists $config{'filename'} |
|
22
|
0 |
0 |
if exists $config{'paragraphs'} |
|
26
|
0 |
2 |
if (exists $config{'filename'}) |
|
27
|
0 |
0 |
if exists $config{'paragraphs'} |
|
31
|
0 |
2 |
if (exists $config{'paragraphs'}) |
|
41
|
0 |
2 |
if $package eq 'Text::Translate::Format' |
|
51
|
0 |
3 |
if $package ne 'Text::Translate::Format' |
|
55
|
0 |
3 |
unless $format =~ /\A \w[\w\d]* \z/msx |
|
58
|
1 |
2 |
unless eval "use $class; 1;" |
|
67
|
2 |
4 |
if (@_) |
|
68
|
2 |
0 |
ref $_[0] ? : |
|
71
|
2 |
4 |
if not exists $$self{'paragraphs'} and exists $$self{'text'} |
|
72
|
2 |
4 |
if wantarray |
|
78
|
4 |
4 |
if @_ |
|
79
|
0 |
8 |
if not exists $$self{'text'} and exists $$self{'paragraphs'} |
|
90
|
0 |
0 |
if (ref $filename) { } |
|
94
|
0 |
0 |
unless open my $fh, '<', $filename |