| line |
l |
!l&&r |
!l&&!r |
condition |
|
30
|
0 |
0 |
10 |
$$self{'global_to_local_cache'}{$num} ||= do {
my $map = $$self{'global_to_local'};
foreach my $prefix (sort {length $b <=> length $a;} keys %{$map;}) {
my $val = $$map{$prefix};
return $prefix =~ /^\d*$/ ? $num : $self->global_to_local($num) if $num =~ s/^_$prefix/_$val/;
return $prefix =~ /^\d*$/ ? $num : $self->global_to_local($num) if $num =~ s/^$prefix/$$map{$prefix}/;
} ;
$num
} |
|
52
|
0 |
0 |
6 |
$$self{'local_to_global_cache'}{$num} ||= do {
my $map = $$self{'local_to_global'};
foreach my $prefix (sort {length $b <=> length $a;} keys %{$map;}) {
my $val = $$map{$prefix};
return $prefix =~ /^\d*$/ ? $num : $self->local_to_global($num) if $num =~ s/^_$prefix/_$val/;
return $prefix =~ /^\d*$/ ? $num : $self->local_to_global($num) if $num =~ s/^$prefix/$$map{$prefix}/;
} ;
$num
} |