Christian Soeller > PDL-2.4.1 > PDL::Index

Download:
PDL-2.4.1.tar.gz

Annotate this POD (1)

CPAN RT

Open  0
View/Report Bugs
Source   Latest Release: PDL-2.4.3

NAME ^

PDL::Index - an index of PDL documentation

DESCRIPTION ^

A meta document listing the documented PDL modules and the PDL manual dcouments

PDL manuals ^

EOPOD

#print POD "=over ",$#mans+1,"\n\n"; print POD "=over 4\n\n"; for (@mans) { my $ref = $_->[1]->{Ref}; $ref =~ s/Manual:/$_-[0]|$_->[0]> -/; ## print POD "=item $_-[0]>\n\n$ref\n\n"; # print POD "=item $_->[0]\n\n$ref\n\n"; print POD "=item *\n\n$ref\n\n"; }

print POD << 'EOPOD';

PDL scripts ^

EOPOD

#print POD "=over ",$#mods+1,"\n\n"; print POD "=over 4\n\n"; for (@scripts) { my $ref = $_->[1]->{Ref}; $ref =~ s/Script:/$_-[0]|PDL::$_->[0]> -/; ## print POD "=item $_-[0]>\n\n$ref\n\n"; # print POD "=item $_->[0]\n\n$ref\n\n"; print POD "=item *\n\n$ref\n\n"; }

print POD << 'EOPOD';

PDL modules ^

EOPOD

#print POD "=over ",$#mods+1,"\n\n"; print POD "=over 4\n\n"; for (@mods) { my $ref = $_->[1]->{Ref}; next unless $_->[0] =~ /^PDL/; if( $_->[0] eq 'PDL'){ # special case needed to find the main PDL.pm file. $ref =~ s/Module:/PDL::PDL -/; ## print POD "=item PDL::PDL\n\n$ref\n\n"; # print POD "=item PDL::PDL\n\n$ref\n\n"; print POD "=item *\n\n$ref\n\n"; next; } $ref =~ s/Module:/$_-[0]|$_->[0]> -/; ## print POD "=item $_-[0]>\n\n$ref\n\n"; # print POD "=item $_->[0]\n\n$ref\n\n"; print POD "=item *\n\n$ref\n\n"; }

print POD << "EOPOD";

HISTORY ^

Automatically generated by scantree.pl for PDL version $PDL::VERSION.

EOPOD

close POD;

syntax highlighting: