diff options
| author | Karl Williamson <khw@cpan.org> | 2014-05-07 16:40:48 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-05-31 10:02:22 -0600 |
| commit | 345c18b8ec072385d9c48e5e85e5c18ada69e8bd (patch) | |
| tree | d9d407585cc01fdf7c8f8afb0e254b4e8c5d273e /lib/utf8_heavy.pl | |
| parent | 28e0232523c4ecdb6e1276d5c30dab3fc66a85ce (diff) | |
| download | perl-345c18b8ec072385d9c48e5e85e5c18ada69e8bd.tar.gz | |
lib/utf8_heavy.pl: Stack '?' and ':' ternaries
This is to make the code easier to read.
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 0d2888f5a4..cfdf8846ad 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -135,8 +135,11 @@ sub _loose_name ($) { my $caller0 = caller(0); - my $caller1 = $type =~ s/(.+)::// ? $1 : $caller0 eq 'main' ? - 'main' : caller(1); + my $caller1 = $type =~ s/(.+)::// + ? $1 + : $caller0 eq 'main' + ? 'main' + : caller(1); if (defined $caller1 && $type =~ /^I[ns]\w+$/) { my $prop = "${caller1}::$type"; |