Subject: | map construction in sub _stack_line only works in 5.18 |
As seen by test results, and CPAN testers results; the map in the _stack_line sub works in 5.18 and later only, yet 5.10 is the minimum required Perl version:
t/log.t ......... Not enough arguments for map at /home/triton/.cpanm/work/1404615627.2100/EntityModel-Log-0.006/blib/lib/EntityModel/Log.pm line 467, near "))"
Compilation failed in require at t/log.t line 5.
BEGIN failed--compilation aborted at t/log.t line 5.
my $txt = sprintf ' => %-32.32s %s(%s) args %s',
$info->{package} . ':' . $info->{line},
($info->{subroutine} =~ m{ ( [^:]+$ ) }x),
($info->{package} eq 'EntityModel::Log')
? ('')
: (join ', ', map Data::Dump::Filtered::dump_filtered($info, sub {
my ($ctx, $obj) = @_;
return undef unless $ctx->is_blessed;
return { dump => "$obj" };
})), join ' ', map $_ // '<undef>', @{ $info->{args} };
t/log.t ......... Not enough arguments for map at /home/triton/.cpanm/work/1404615627.2100/EntityModel-Log-0.006/blib/lib/EntityModel/Log.pm line 467, near "))"
Compilation failed in require at t/log.t line 5.
BEGIN failed--compilation aborted at t/log.t line 5.
my $txt = sprintf ' => %-32.32s %s(%s) args %s',
$info->{package} . ':' . $info->{line},
($info->{subroutine} =~ m{ ( [^:]+$ ) }x),
($info->{package} eq 'EntityModel::Log')
? ('')
: (join ', ', map Data::Dump::Filtered::dump_filtered($info, sub {
my ($ctx, $obj) = @_;
return undef unless $ctx->is_blessed;
return { dump => "$obj" };
})), join ' ', map $_ // '<undef>', @{ $info->{args} };