| line |
true |
false |
branch |
|
101
|
0 |
0 |
unless exists $args{$k} |
|
104
|
0 |
0 |
unless ($args{'NoSource'}) |
|
108
|
0 |
0 |
if $@ |
|
117
|
0 |
0 |
if $@ |
|
124
|
0 |
0 |
if $args{'Verbose'} |
|
128
|
0 |
0 |
unless $args{'Libs'} and ref $args{'Libs'} and $#{$args{'Libs'};} >= 0 |
|
130
|
0 |
0 |
unless 'Pod::ProjectDocs'->new('outroot', $out, 'libroot', $args{'Libs'}, 'title', $args{'Title'}, 'desc', $args{'Description'}, 'charset', $args{'CharSet'}, 'index', 1, 'verbose', $args{'Verbose'}, 'forcegen', $args{'Force'}, 'lang', $args{'Language'})->gen |
|
144
|
0 |
0 |
if $args{'Verbose'} |
|
149
|
0 |
0 |
unless _recurseDirs($path, \@dirs) |
|
152
|
0 |
0 |
if $args{'Verbose'} |
|
157
|
0 |
0 |
unless opendir PATH, $p |
|
169
|
0 |
0 |
unless my $classdocs = 'Pod::Classdoc::ForProjectTOC'->new($out, $args{'Title'}, $args{'Verbose'}) |
|
173
|
0 |
0 |
unless ($args{'NoSource'}) |
|
199
|
0 |
0 |
unless $HTML = 'PPI::HTML::CodeFolder'->new('line_numbers', 1, 'page', 1, 'colors', \%tagcolors, 'verbose', $args{'Verbose'}, 'fold', {'Abbreviate', 1, 'Heredocs', $args{'Heredocs'}, 'POD', $args{'POD'}, 'Comments', $args{'Comments'}, 'Expandable', $args{'Expandable'}, 'Imports', $args{'Imports'}, 'MinFoldLines', $args{'MinFoldLines'}, 'Javascript', "$jspath/ppicf.js", 'Stylesheet', "$csspath/ppicf.css"}) |
|
223
|
0 |
0 |
if $args{'Verbose'} |
|
227
|
0 |
0 |
unless ($args{'NoSource'}) |
|
231
|
0 |
0 |
if $args{'Verbose'} |
|
235
|
0 |
0 |
unless my $t = $HTML->html($Document, "$out/$outfile.html") |
|
240
|
0 |
0 |
unless open OUTF, ">$out/$outfile.html" |
|
251
|
0 |
0 |
unless -d $_ |
|
255
|
0 |
0 |
if $args{'Verbose'} |
|
263
|
0 |
0 |
if $args{'Verbose'} |
|
268
|
0 |
0 |
unless open INF, "$out/index.html" |
|
280
|
0 |
0 |
unless open OUTF, ">$out/project.html" |
|
287
|
0 |
0 |
if substr($list, -1) eq ';' |
|
292
|
0 |
0 |
unless $$mans{'desc'} eq 'Package Manuals' or $$mans{'desc'} eq 'Perl Manuals' |
|
307
|
0 |
0 |
$HTML ? : |
|
322
|
0 |
0 |
unless open INDEX, ">$out/index.html" |
|
340
|
0 |
0 |
if ($download) { } |
|
349
|
0 |
0 |
unless ($notree) |
|
350
|
0 |
0 |
unless my $tree = 'HTML::ListToTree'->new('Text', $args{'Title'}, 'Link', 'project.html', 'Source', $toc) |
|
368
|
0 |
0 |
unless open TREE, ">$out/toc.html" |
|
374
|
0 |
0 |
unless $tree->writeJavascript("$jspath/dtree.js") and $tree->writeCSS("$csspath/dtree.css") and $tree->writeIcons($imgpath) and !$HTML || $HTML->writeJavascript("$jspath/ppicf.js") && $HTML->writeCSS("$csspath/ppicf.css") |
|
395
|
0 |
0 |
unless opendir PATH, $path |
|
406
|
0 |
0 |
if $_ ne '.' and $_ ne '..' and -d "$path/$_" and not _recurseDirs("$path/$_", $dirs) |
|
420
|
0 |
0 |
unless open INF, $file |
|
428
|
0 |
0 |
unless $html =~ s/\s+(.+)//s |
|
433
|
0 |
0 |
if $^O eq 'MSWin32' |
|
444
|
0 |
0 |
unless open FRAME, ">$file" |
|
513
|
0 |
0 |
unless open OUTF, ">$path/toc.html" |
|
546
|
0 |
0 |
$args{'Order'} ? : |
|
565
|
0 |
0 |
unless exists $$self{'_classes'}{$pkg} |
|
569
|
0 |
0 |
exists $$info{'File'} ? : |
|
575
|
0 |
0 |
if exists $$constr{$sub} |
|
580
|
0 |
0 |
unless substr($sub, 0, 1) eq '_' or exists $$methods{$sub} |
|
583
|
0 |
0 |
unless exists $$methods{$sub} |
|
595
|
0 |
0 |
exists $$info{'URL'} ? : |
|
602
|
0 |
0 |
unless exists $ordered{$_} |
|
609
|
0 |
0 |
unless exists $$self{'_classes'}{$pkg} |
|
618
|
0 |
0 |
if $$info{'File'} |
|
625
|
0 |
0 |
$$info{'Manual'} ? : |
|
|
0 |
0 |
if exists $$manuals{$pkg} |
|
632
|
0 |
0 |
if (exists $$info{'exports'} and @{$$info{'exports'};}) |
|
641
|
0 |
0 |
if (exists $$info{'imports'} and @{$$info{'imports'};}) |
|
650
|
0 |
0 |
if (exists $$info{'member'} and @{$$info{'member'};}) |
|
659
|
0 |
0 |
if (exists $$info{'constructors'} and %{$$info{'constructors'};}) |
|
666
|
0 |
0 |
if $$constr{$_}{'External'} |
|
670
|
0 |
0 |
unless $$constr{$_}{'Source'} |
|
680
|
0 |
0 |
if (exists $$info{'Methods'} and %{$$info{'Methods'};}) |
|
682
|
0 |
0 |
if ($args{'GroupExternals'}) |
|
684
|
0 |
0 |
if $$subinfo{'External'} |
|
693
|
0 |
0 |
exists $$methods{$_}{'Source'} ? : |
|
|
0 |
0 |
unless exists $externals{$_} |
|
698
|
0 |
0 |
if (%externals) |