| Subject: | false positive using ? : syntax |
skaufman@SamKs-MacBook-Pro:~ $ perl -v | grep This
This is perl 5, version 16, subversion 1 (v5.16.1) built for darwin-2level
skaufman@SamKs-MacBook-Pro:~ $ cat test.pl
use strict;
use warnings;
no indirect;
sub recursive_is_active {
my $self = shift;
return $self->can('parent_budget')
? ( $self->is_active && $self->parent_budget->is_active )
: $self->is_active;
}
skaufman@SamKs-MacBook-Pro:~ $ perl test.pl
Indirect call of method "is_active" on object "$self" at test.pl line 8.
skaufman@SamKs-MacBook-Pro:~ $ perl -Mindirect -e 'print indirect->VERSION'
0.29skaufman@SamKs-MacBook-Pro:~ $