| line |
true |
false |
branch |
|
58
|
0 |
0 |
if ($config) |
|
64
|
0 |
0 |
unless (-d $_) |
|
66
|
0 |
0 |
if $File::Find::name =~ /$regex/ |
|
74
|
0 |
0 |
unless m[^.*/?(CVS|RCS)$] and $$config{'skipcvs'} |
|
122
|
0 |
0 |
if ($self->_discard_line($line)) |
|
128
|
0 |
0 |
if ($line =~ /^\s*package\s+($pkg_regexp)?;?/ or $$continue{'package'}) |
|
129
|
0 |
0 |
if $$continue{'package'} |
|
130
|
0 |
0 |
unless ($1) |
|
138
|
0 |
0 |
if $self->skip($className) |
|
143
|
0 |
0 |
if $exists |
|
147
|
0 |
0 |
if ($line =~ m[^\s*use\s+(?:base|parent)\s+(?:q|qw|qq)?\s*([\'\"\(\{/\#])\s*([^\'\"\)\}/\#]*)\s*(\1|[\)\}])?] or $continue_base and $line =~ /$continue_base/) |
|
152
|
0 |
0 |
if ($continue_base) { } |
|
158
|
0 |
0 |
if ($line =~ /(.*)\s*$continue_base?/) |
|
167
|
0 |
0 |
if ($end) |
|
183
|
0 |
0 |
if $super =~ /(?:exporter|autoloader)/i |
|
188
|
0 |
0 |
if ($super =~ /Class..Accessor\:*/) |
|
192
|
0 |
0 |
if $super eq 'Class::Tangram' |
|
196
|
0 |
0 |
if (ref $exists_already) |
|
210
|
0 |
0 |
if (grep /DBIx::Class$/, @superclasses) |
|
217
|
0 |
0 |
if ($line =~ /^\s*(use|require)\s+($pkg_regexp)/) |
|
219
|
0 |
0 |
unless (ref $Class) |
|
224
|
0 |
0 |
if $exists |
|
228
|
0 |
0 |
if $componentName =~ /^(strict|vars|exporter|autoloader|warnings.*|constant.*|data::dumper|carp.*|overload|switch|\d|lib)$/i |
|
230
|
0 |
0 |
if ($componentName eq 'Class::XSAccessor') |
|
234
|
0 |
0 |
if ($componentName eq 'Object::InsideOut') |
|
236
|
0 |
0 |
if ($line =~ /^\s*use\s+.*qw\((.*)\)/) |
|
243
|
0 |
0 |
if (ref $exists_already) |
|
265
|
0 |
0 |
if ($line =~ m[\s*use\s+(fields|private|public)\s+(?:q|qw|qq){0,1}\s*([\'\"\(\{/\#])\s*(.*)\s*([\)\}\1]?)] or $continue_fields) { } |
|
268
|
0 |
0 |
if ($continue_fields) { } |
|
271
|
0 |
0 |
if ($line =~ /(.*)\s*$continue_fields?/) |
|
277
|
0 |
0 |
if ($fields =~ /(.*)([\)\}\1])/) |
|
288
|
0 |
0 |
$field =~ /^\_/ ? : |
|
289
|
0 |
0 |
unless ($pragma eq 'fields') |
|
290
|
0 |
0 |
$pragma eq 'private' ? : |
|
293
|
0 |
0 |
unless $field =~ /^\$/ |
|
305
|
0 |
0 |
if (ref $exists) |
|
322
|
0 |
0 |
if ($line =~ /^\s*\@(?:\w+\:\:)*ISA\s*\=\s*(?:q|qw){0,1}\((.*)\)/) |
|
328
|
0 |
0 |
if ($superclass) { } |
|
337
|
0 |
0 |
if $super =~ /(?:exporter|autoloader)/i or not $super |
|
343
|
0 |
0 |
if (ref $exists_already) |
|
347
|
0 |
0 |
if $super eq 'Class::Tangram' |
|
363
|
0 |
0 |
if ($$self{'_modules'}{'Moose'} and $line =~ m[extends (?:q|qw|qq)?\s*([\'\"\(\{/\#])\s*([^\'\"\)\}/\#]*)\s*(\1|[\)\}])?]) |
|
374
|
0 |
0 |
if (ref $exists_already) |
|
389
|
0 |
0 |
if (ref $self) |
|
390
|
0 |
0 |
if ($line =~ /^\s*(?:our|my)?\s+\$fields\s(.*)$/ and defined $$self{'_is_tangram_class'}{$Class->Name}) |
|
396
|
0 |
0 |
if ($line =~ /^(.*\}\s*;)/) |
|
401
|
0 |
0 |
if ($$self{'_in_tangram_class'}) |
|
403
|
0 |
0 |
if ($line =~ /^(.*\}\s*;)/ and $$self{'_in_tangram_class'} == 1) { } |
|
409
|
0 |
0 |
unless $$self{'_in_tangram_class'} == 2 |
|
411
|
0 |
0 |
if ($$self{'_in_tangram_class'} == 2) |
|
427
|
0 |
0 |
if (/qw\((.*)\)/) { } |
|
439
|
0 |
0 |
if ($fields{$field} =~ /class\s*=>\s*[\'\"](.*?)[\'\"]/) |
|
442
|
0 |
0 |
if ($fields{$field} =~ /init_default\s*=>\s*[\'\"](.*?)[\'\"]/) |
|
446
|
0 |
0 |
$$attribute{'name'} =~ /^\_/ ? : |
|
459
|
0 |
0 |
if ($line =~ /->columns\(\s*All\s*=>\s*(.*)$/) |
|
462
|
0 |
0 |
if ($columns =~ s/^qw(.)//) { } |
|
|
0 |
0 |
elsif ($columns =~ /'.+'/) { } |
|
474
|
0 |
0 |
$col =~ /^\_/ ? : |
|
484
|
0 |
0 |
unless $line =~ s/(.*)\)\s*;(#.*)?\s*$/$1/ |
|
490
|
0 |
0 |
if ($Class and $$self{'_superclasses'}{$Class->Name}{'Class::Data::Inheritable'}) |
|
491
|
0 |
0 |
if ($line =~ /->mk_classdata\((\w+)/) |
|
493
|
0 |
0 |
$attribute =~ /^\_/ ? : |
|
504
|
0 |
0 |
if ($Class and $$self{'_superclasses'}{$Class->Name}{'Class::Accessor'}) |
|
506
|
0 |
0 |
if ($line =~ /->mk_accessors\s*\(\s*(.*)$/) |
|
509
|
0 |
0 |
if ($attributes =~ s/^qw(.)//) { } |
|
|
0 |
0 |
elsif ($attributes =~ /'.+'/) { } |
|
521
|
0 |
0 |
unless $attribute =~ /\w+/ |
|
522
|
0 |
0 |
$attribute =~ /^\_/ ? : |
|
529
|
0 |
0 |
unless ($Class->get_operation($attribute)) |
|
534
|
0 |
0 |
unless $line =~ s/(.*)\)\s*;(#.*)?\s*$/$1/ |
|
540
|
0 |
0 |
if ($$continue{'class_accessor_attributes'}) |
|
542
|
0 |
0 |
if $line =~ s/(.*)\)\s*;(#.*)?\s*$/$1/ |
|
543
|
0 |
0 |
if ($line =~ /'.+'/) { } |
|
550
|
0 |
0 |
unless $attribute =~ /\w+/ |
|
552
|
0 |
0 |
$attribute =~ /^\_/ ? : |
|
560
|
0 |
0 |
unless ($Class->get_operation($attribute)) |
|
568
|
0 |
0 |
if ($last_sub and $$self{'_modules'}{'Params::Validate'} and $line =~ /validate(_pos)?\s*\(/ || $$self{'_in_params_validate_arguments'}) |
|
572
|
0 |
0 |
if $line =~ /validate_pos/ |
|
573
|
0 |
0 |
if ($line =~ /\)\s*;/) |
|
580
|
0 |
0 |
if ($found_end) |
|
590
|
0 |
0 |
unless $$self{'_in_params_validate_positional_arguments'} |
|
593
|
0 |
0 |
if (ref $$params{$param_name} and $$params{'type'} || $$params{'isa'}) |
|
598
|
0 |
0 |
if (scalar @$parameters) |
|
613
|
0 |
0 |
if ($$self{'_dbix_class_columns'}) |
|
616
|
0 |
0 |
if ($line =~ /\);/) |
|
621
|
0 |
0 |
if ($found_end) |
|
644
|
0 |
0 |
if ($$self{'_dbix_class_relation'} or $line =~ /\-\>has_(many|one)\s*\((.*)/ or $line =~ /\-\>(belongs_to)\s*\((.*)/) |
|
647
|
0 |
0 |
if ($line =~ /\);/) |
|
652
|
0 |
0 |
if ($line =~ /\-\>has_(many|one)\s*\((.*)/ or $line =~ /\-\>(belongs_to)\s*\((.*)/) { } |
|
661
|
0 |
0 |
if ($found_end) |
|
668
|
0 |
0 |
unless ($related_classname) |
|
677
|
0 |
0 |
if ref $exists_already |
|
694
|
0 |
0 |
if ($$self{'_dbix_class'} and $line =~ /add_columns\s*\((.*)/) |
|
701
|
0 |
0 |
if ($line =~ m[->load_components\s*\(\s*(?:q|qw|qq)?\s*([\'\"\(\{/\#])\s*([^\'\"\)\}/\#]*)\s*(\1|[\)\}])?]) |
|
707
|
0 |
0 |
if ref $exists_already |
|
720
|
0 |
0 |
if ($$self{'_modules'}{'Moose'} and $line =~ /^\s*has\s+'?(\w+)'?/) |
|
730
|
0 |
0 |
if ($$self{'_class_xsaccessor'}) |
|
735
|
0 |
0 |
if ($$self{'_insideout_class'} and $line =~ /^\s*my\s+\@\w+\s+\:FIELD\s*\((.*)\)/) |
|
747
|
0 |
0 |
if ($key =~ /(Get|Set|Acc|Mut|Com)/) |
|
755
|
0 |
0 |
if ($line =~ /^\s*sub\s+?(\w+)/) |
|
766
|
0 |
0 |
$subroutine{'name'} =~ /^\_/ ? : |
|
772
|
0 |
0 |
unless ($Class->get_operation($subname)) |
|
779
|
0 |
0 |
if ($line =~ /\$(class|self|this)\-\>\{['"]*(.*?)["']*}/) |
|
783
|
0 |
0 |
$attribute_name =~ /^\_/ ? : |
|
785
|
0 |
0 |
unless $attribute_name =~ /^\$/ |
|
807
|
0 |
0 |
if ($line =~ /^\s*$/) |
|
813
|
0 |
0 |
if ($line =~ /^\s*\#/) |
|
819
|
0 |
0 |
if ($line =~ /^\s*\=head/) |
|
826
|
0 |
0 |
if ($line =~ /^\s*\=cut/) |
|
833
|
0 |
0 |
if ($$self{'pod'} == 1) |
|
850
|
0 |
0 |
unless (ref $$package) |