| line |
true |
false |
branch |
|
87
|
0 |
0 |
unless &GetOptions('h|help', \$options{'help'}, 'd|depth=i', \$options{'depth'}, 't|timeout=i', \$options{'timeout'}, 'o|output-file=s', \$options{'output_file'}, 'nc|no-core', \$options{'no_core'}, 'nrc|no-recurse-core', \$options{'no_recurse_core'}, 'v|verbose', \$options{'verbose'}, 'dot', \$format{'dot'}, 'svg', \$format{'svg'}, 'gml', \$format{'gml'}, 'vcg', \$format{'vcg'}, 'html', \$format{'html'})
|
|
89
|
0 |
0 |
if $options{'help'}
|
|
92
|
0 |
0 |
unless $format{$format}
|
|
94
|
0 |
0 |
if (keys %format > 1)
|
|
98
|
0 |
0 |
if ($format{'svg'})
|
|
102
|
0 |
0 |
if ($@)
|
|
107
|
0 |
0 |
unless keys %format == 1
|
|
109
|
0 |
0 |
if ($options{'no_core'} and $options{'no_recurse_core'})
|
|
114
|
0 |
0 |
unless defined $options{$_}
|
|
139
|
40 |
23 |
if $seen{$module}
|
|
142
|
22 |
1 |
if (defined($path = module_path($module))) { }
|
|
|
0 |
1 |
elsif (-f $module) { }
|
|
146
|
0 |
1 |
if $self->verbose
|
|
153
|
0 |
22 |
if $@
|
|
157
|
31 |
50 |
if (not exists $depth{$dep} or $depth{$dep} > $depth{$module} + 1)
|
|
160
|
0 |
81 |
if ($self->no_core and is_core($dep)) { }
|
|
|
8 |
73 |
elsif ($dep eq 'perl') { }
|
|
166
|
12 |
61 |
if $self->depth and $depth{$dep} >= $self->depth
|
|
167
|
61 |
0 |
unless $self->no_recurse_core and is_core($dep)
|
|
173
|
0 |
2 |
unless open $fh, '>', $filename
|
|
177
|
0 |
2 |
if $self->verbose
|
|
183
|
0 |
0 |
@_ > 0 ? :
|
|
185
|
0 |
0 |
unless defined(my $first_release = Module::CoreList::first_release($module))
|
|
186
|
0 |
0 |
unless $version >= $first_release
|
|
187
|
0 |
0 |
unless defined(my $final_release = Module::CoreList::removed_from($module))
|