| line |
!l |
l&&!r |
l&&r |
condition |
|
74
|
0 |
0 |
0 |
m[^.*/?(CVS|RCS)$] and $$config{'skipcvs'} |
|
147
|
0 |
0 |
0 |
$continue_base and $line =~ /$continue_base/ |
|
363
|
0 |
0 |
0 |
$$self{'_modules'}{'Moose'} and $line =~ m[extends (?:q|qw|qq)?\s*([\'\"\(\{/\#])\s*([^\'\"\)\}/\#]*)\s*(\1|[\)\}])?] |
|
390
|
0 |
0 |
0 |
$line =~ /^\s*(?:our|my)?\s+\$fields\s(.*)$/ and defined $$self{'_is_tangram_class'}{$Class->Name} |
|
403
|
0 |
0 |
0 |
$line =~ /^(.*\}\s*;)/ and $$self{'_in_tangram_class'} == 1 |
|
490
|
0 |
0 |
0 |
$Class and $$self{'_superclasses'}{$Class->Name}{'Class::Data::Inheritable'} |
|
504
|
0 |
0 |
0 |
$Class and $$self{'_superclasses'}{$Class->Name}{'Class::Accessor'} |
|
568
|
0 |
0 |
0 |
$last_sub and $$self{'_modules'}{'Params::Validate'} |
|
|
0 |
0 |
0 |
$last_sub and $$self{'_modules'}{'Params::Validate'} and $line =~ /validate(_pos)?\s*\(/ || $$self{'_in_params_validate_arguments'} |
|
593
|
0 |
0 |
0 |
ref $$params{$param_name} and $$params{'type'} || $$params{'isa'} |
|
694
|
0 |
0 |
0 |
$$self{'_dbix_class'} and $line =~ /add_columns\s*\((.*)/ |
|
720
|
0 |
0 |
0 |
$$self{'_modules'}{'Moose'} and $line =~ /^\s*has\s+'?(\w+)'?/ |
|
735
|
0 |
0 |
0 |
$$self{'_insideout_class'} and $line =~ /^\s*my\s+\@\w+\s+\:FIELD\s*\((.*)\)/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
128
|
0 |
0 |
0 |
$line =~ /^\s*package\s+($pkg_regexp)?;?/ or $$continue{'package'} |
|
147
|
0 |
0 |
0 |
$line =~ m[^\s*use\s+(?:base|parent)\s+(?:q|qw|qq)?\s*([\'\"\(\{/\#])\s*([^\'\"\)\}/\#]*)\s*(\1|[\)\}])?] or $continue_base and $line =~ /$continue_base/ |
|
265
|
0 |
0 |
0 |
$line =~ m[\s*use\s+(fields|private|public)\s+(?:q|qw|qq){0,1}\s*([\'\"\(\{/\#])\s*(.*)\s*([\)\}\1]?)] or $continue_fields |
|
337
|
0 |
0 |
0 |
$super =~ /(?:exporter|autoloader)/i or not $super |
|
568
|
0 |
0 |
0 |
$line =~ /validate(_pos)?\s*\(/ || $$self{'_in_params_validate_arguments'} |
|
593
|
0 |
0 |
0 |
$$params{'type'} || $$params{'isa'} |
|
594
|
0 |
0 |
0 |
$$params{'type'} || $$params{'isa'} |
|
644
|
0 |
0 |
0 |
$$self{'_dbix_class_relation'} or $line =~ /\-\>has_(many|one)\s*\((.*)/ |
|
|
0 |
0 |
0 |
$$self{'_dbix_class_relation'} or $line =~ /\-\>has_(many|one)\s*\((.*)/ or $line =~ /\-\>(belongs_to)\s*\((.*)/ |
|
652
|
0 |
0 |
0 |
$line =~ /\-\>has_(many|one)\s*\((.*)/ or $line =~ /\-\>(belongs_to)\s*\((.*)/ |