| line |
true |
false |
branch |
|
88
|
704 |
0 |
if (@_)
|
|
90
|
704 |
0 |
if (@_ == 1) { }
|
|
|
0 |
0 |
elsif (@_ % 2 == 0) { }
|
|
104
|
0 |
0 |
wantarray ? :
|
|
124
|
0 |
0 |
if @_
|
|
134
|
0 |
2218 |
unless $message->can("text") and $message->can("id")
|
|
135
|
1867 |
351 |
if $message->is_custom
|
|
139
|
351 |
0 |
if ($parent->can("parent"))
|
|
144
|
132 |
219 |
if ($parent and $parent->isa("Rose::HTML::Object::Error"))
|
|
149
|
346 |
5 |
$parent ? :
|
|
188
|
4 |
0 |
$parent->can('parent') ? :
|
|
|
0 |
4 |
$parent->can('parent_form') ? :
|
|
|
40 |
4 |
$parent->can('parent_field') ? :
|
|
193
|
4 |
40 |
if ($parent)
|
|
204
|
351 |
40 |
if defined $text
|
|
215
|
94 |
38 |
unless ref $_[0] eq "CODE"
|
|
223
|
351 |
0 |
$args ? :
|
|
228
|
68 |
128 |
if (my $ref = ref $value)
|
|
230
|
28 |
40 |
if ($ref eq 'ARRAY') { }
|
|
247
|
2 |
13 |
defined $3 ? :
|
|
|
15 |
0 |
ref $args{$2} ? :
|
|
275
|
70 |
0 |
if (defined $messages_class->get_message_name($error_id)) { }
|
|
|
0 |
0 |
elsif (not $error_id =~ /^\d+$/) { }
|
|
293
|
6 |
345 |
if $args->{'variant'}
|
|
295
|
12 |
333 |
if (defined(my $count = $args->{'count'}))
|
|
320
|
3 |
3 |
$count == 2 ? :
|
|
|
3 |
6 |
$count == 1 ? :
|
|
|
3 |
9 |
$count == 0 ? :
|
|
356
|
7713 |
2170 |
if (exists $msgs->{$name} and exists $msgs->{$name}{$locale})
|
|
358
|
2572 |
5141 |
if (ref $msgs->{$name}{$locale}) { }
|
|
|
0 |
5141 |
elsif ($variant eq 'default') { }
|
|
360
|
0 |
2572 |
$msgs->{$name}{$locale}{$variant} ? :
|
|
377
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
unless ref $msgs->{$name}
|
|
380
|
0 |
0 |
wantarray ? :
|
|
395
|
0 |
102 |
unless defined $text
|
|
397
|
0 |
102 |
if ($name =~ /[^A-Z0-9_]/)
|
|
403
|
0 |
102 |
if ($id and $name) { }
|
|
|
0 |
102 |
elsif (not defined $name) { }
|
|
|
102 |
0 |
elsif (not defined $id) { }
|
|
405
|
0 |
0 |
unless ($name eq $self->messages_class->get_message_name($id))
|
|
412
|
0 |
0 |
unless defined $id
|
|
413
|
0 |
0 |
unless $name = $self->messages_class->get_message_name($id)
|
|
418
|
0 |
102 |
unless defined $name
|
|
419
|
0 |
102 |
unless $id = $self->messages_class->get_message_id($name)
|
|
423
|
100 |
2 |
unless (ref $text eq "HASH")
|
|
432
|
0 |
0 |
$variant ? :
|
|
|
0 |
104 |
if $Debug
|
|
436
|
7 |
97 |
if ($variant) { }
|
|
438
|
5 |
2 |
if (ref $msgs->{$name}{$l}) { }
|
|
446
|
0 |
2 |
if (defined $existing)
|
|
457
|
0 |
97 |
if (ref ref $msgs->{$name}{$l}) { }
|
|
475
|
0 |
2 |
if ($Rose::HTML::Object::Exporter::Target_Class) { }
|
|
490
|
0 |
1 |
unless @_
|
|
492
|
0 |
1 |
if ($Rose::HTML::Object::Exporter::Target_Class) { }
|
|
512
|
1 |
16 |
unless defined $text
|
|
514
|
0 |
16 |
if ($name =~ /[^A-Z0-9_]/)
|
|
520
|
5 |
11 |
unless (ref $text eq "HASH")
|
|
530
|
1 |
15 |
if (defined &$const)
|
|
539
|
0 |
26 |
if $Debug
|
|
584
|
1 |
5 |
unless my $name = $args{'name'}
|
|
590
|
1 |
4 |
if (defined &$const)
|
|
604
|
0 |
0 |
if $code
|
|
629
|
383 |
62 |
if (exists $msgs->{$name} and exists $msgs->{$name}{$locale})
|
|
631
|
12 |
12 |
if (ref $msgs->{$name}{$locale} and exists $msgs->{$name}{$locale}{$variant})
|
|
636
|
339 |
32 |
if $variant eq "default"
|
|
639
|
44 |
95 |
if $try == 2
|
|
664
|
0 |
10292 |
if ($self->localized_message_exists($name, $locale, $variant))
|
|
674
|
944 |
9348 |
if (fileno $fh)
|
|
678
|
912 |
32 |
if ($Data_Pos{$from_class}) { }
|
|
693
|
51 |
893 |
if defined $text
|
|
704
|
0 |
10197 |
if $seen{$class}++
|
|
707
|
40 |
10157 |
if defined $msg
|
|
720
|
1 |
3 |
if (@_)
|
|
722
|
0 |
1 |
@_ == 1 && ref $_[0] eq 'ARRAY' ? :
|
|
727
|
0 |
1 |
wantarray ? :
|
|
|
1 |
2 |
if defined $locales
|
|
729
|
1 |
1 |
if (my $locales = $ENV{'RHTMLO_LOCALES'})
|
|
731
|
1 |
0 |
unless ref $locales
|
|
733
|
0 |
1 |
wantarray ? :
|
|
736
|
0 |
1 |
wantarray ? :
|
|
745
|
0 |
128 |
if (@_)
|
|
751
|
0 |
128 |
if defined $ret
|
|
753
|
1 |
127 |
if ($ENV{'MOD_PERL'} and !defined($ENV{'RHTMLO_PRIME_CACHES'}) || $ENV{'RHTMLO_PRIME_CACHES'} or $ENV{'RHTMLO_PRIME_CACHES'})
|
|
768
|
1 |
2 |
if (@_ > 1) { }
|
|
782
|
3 |
0 |
if (fileno $fh)
|
|
786
|
2 |
1 |
if ($Data_Pos{$from_class}) { }
|
|
798
|
0 |
3 |
if $Debug
|
|
808
|
2 |
0 |
if (@_ == 1) { }
|
|
|
0 |
0 |
elsif (@_ > 1) { }
|
|
814
|
0 |
0 |
if @_ % 2 != 0
|
|
819
|
0 |
2 |
unless my $file = delete $args{'file'}
|
|
821
|
0 |
2 |
unless open $args{'fh'}, $file
|
|
832
|
947 |
3 |
if $args{'force_utf8'}
|
|
834
|
3 |
947 |
if (ref $locales eq 'ARRAY') { }
|
|
|
944 |
6 |
elsif ($locales and not ref $locales) { }
|
|
836
|
2 |
1 |
@$locales ? :
|
|
843
|
0 |
950 |
if (ref $variants eq 'ARRAY') { }
|
|
|
944 |
12 |
elsif ($variants and not ref $variants) { }
|
|
845
|
0 |
0 |
@$variants ? :
|
|
854
|
944 |
6 |
if ($msg_names)
|
|
856
|
944 |
0 |
if (not ref $msg_names) { }
|
|
|
0 |
0 |
elsif (ref $msg_names eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $msg_names eq 'Regexp') { }
|
|
885
|
914 |
31301 |
if /$End_Messages/o
|
|
889
|
4 |
31297 |
if (/$End_Message/o and !$2 || $2 eq $in_msg) { }
|
|
|
4 |
31293 |
elsif ($in_msg) { }
|
|
|
3453 |
27840 |
elsif (/$Locale_Declaration/o) { }
|
|
|
16701 |
11139 |
elsif (/$Message_Spec/o) { }
|
|
|
4 |
11135 |
elsif (/$Start_Message/o) { }
|
|
|
0 |
11135 |
elsif (not /$Comment_Or_Blank/o) { }
|
|
891
|
0 |
0 |
if (not $msg_names or $msg_names->{$in_msg} or $msg_re and $in_msg =~ /$msg_re/)
|
|
925
|
91 |
952 |
if (!$locales || $locales->{$in_locale} and !$variants || $$variants{$2 or 'default'} and !$msg_names || $msg_names->{$1})
|
|
949
|
51 |
40 |
if $msg_names
|
|
967
|
0 |
950 |
wantarray ? :
|
|
975
|
1 |
0 |
@_ == 1 ? :
|