| line |
true |
false |
branch |
|
41
|
0 |
0 |
unless $self->search_dir
|
|
152
|
0 |
0 |
if ($file_name =~ /\.pm$/)
|
|
162
|
0 |
0 |
if $_ ne 'CVS' and $_ ne '.svn'
|
|
184
|
0 |
0 |
unless -d $test_suite_dir
|
|
220
|
0 |
0 |
unless $line
|
|
221
|
0 |
0 |
if (my($tmp_name) = $line =~ /package\s*([^\s;]+)/)
|
|
225
|
0 |
0 |
if (($sub_name) = $line =~ /sub\s*([^\s]+)/)
|
|
242
|
0 |
0 |
if $self->is_testsuite($pm_path)
|
|
243
|
0 |
0 |
if $self->has_testsuite($pm_path)
|
|
261
|
0 |
0 |
if ($self->preview)
|
|
282
|
0 |
0 |
unless open my $fh, '<', $file
|
|
384
|
0 |
0 |
if $sub_name eq 'new'
|
|
397
|
0 |
0 |
unless @pm_paths
|
|
402
|
0 |
0 |
unless (-d $test_suite_dir)
|
|
403
|
0 |
0 |
unless File::Path::mkpath($test_suite_dir)
|
|
424
|
0 |
0 |
unless -d $t_dir
|
|
436
|
0 |
0 |
unless ($over_write)
|
|
437
|
0 |
0 |
if -f $t_file_path
|
|
450
|
0 |
0 |
unless open my $fh, $mode, $file_path
|