|
Lines 1362-1368
sub matches { ## no critic qw(ProhibitExcessComplexity)
Link Here
|
| 1362 |
local $_ = ref $self->{$key} eq 'ARRAY' |
1362 |
local $_ = ref $self->{$key} eq 'ARRAY' |
| 1363 |
? sprintf( |
1363 |
? sprintf( |
| 1364 |
@{$self->{$key}}[0], |
1364 |
@{$self->{$key}}[0], |
| 1365 |
@{$self->{$key}}[1..@{$self->{$key}}] |
1365 |
@{$self->{$key}}[1..@{$self->{$key}}-1] |
| 1366 |
) |
1366 |
) |
| 1367 |
: $self->{$key}; |
1367 |
: $self->{$key}; |
| 1368 |
if (ref $arrval eq 'CODE') { |
1368 |
if (ref $arrval eq 'CODE') { |
|
Lines 1393-1399
sub matches { ## no critic qw(ProhibitExcessComplexity)
Link Here
|
| 1393 |
local $_ = ref $self->{$key} eq 'ARRAY' |
1393 |
local $_ = ref $self->{$key} eq 'ARRAY' |
| 1394 |
? sprintf( |
1394 |
? sprintf( |
| 1395 |
@{$self->{$key}}[0], |
1395 |
@{$self->{$key}}[0], |
| 1396 |
@{$self->{$key}}[1..@{$self->{$key}}] |
1396 |
@{$self->{$key}}[1..@{$self->{$key}}-1] |
| 1397 |
) |
1397 |
) |
| 1398 |
: $self->{$key}; |
1398 |
: $self->{$key}; |
| 1399 |
|
1399 |
|
|
Lines 1613-1619
sub _string_attributes {
Link Here
|
| 1613 |
my ($self) = @_; |
1613 |
my ($self) = @_; |
| 1614 |
|
1614 |
|
| 1615 |
return map { ref $_ eq 'ARRAY' |
1615 |
return map { ref $_ eq 'ARRAY' |
| 1616 |
? sprintf(@$_[0], @$_[1..@$_]) |
1616 |
? sprintf(@$_[0], @$_[1..@$_-1]) |
| 1617 |
: $_ } |
1617 |
: $_ } |
| 1618 |
grep { defined $_ and (ref $_ or $_ ne '') } |
1618 |
grep { defined $_ and (ref $_ or $_ ne '') } |
| 1619 |
map { $self->{$_} } |
1619 |
map { $self->{$_} } |
| 1620 |
- |
|
|
