Changeset 12608 for docs/Perl6/p6doc

Timestamp:

08/23/06 13:22:47 (2 years ago)

Author:

audreyt

Message:

* p6doc: Make it slightly more useful by allowing "p6doc s03"

as synonym to "p6doc Spec::Operator". Still need a lot of
usability work before this can be released to CPAN to replace
Perl6::Bible.

Files:

• docs/Perl6/p6doc (modified) (1 diff)

docs/Perl6/p6doc

@@ -4 +4 @@
 use Pod::Perldoc;
 
+my %Spec = qw(
+    1 Overview 2 Syntax       3 Operator     4 Block
+    5 Rule     6 Subroutine   9 Structure    10 Package
+    11 Module 12 Object      13 Overload
+
+    17 Concurrency
+    22 CPAN
+    26 Documentation
+    29 Functions
+);
+
 my $doc = shift || 'doc';
-$doc = "Perl6::\L\u$doc";
+if ($doc =~ /^S?0*(\d+)/i) {
+    $doc = "Perl6::Spec::$Spec{$1}";
+}
+else {
+    # XXX - Be more like "ri" and allow introspection over API etc
+    $doc = "Perl6::\L\u$doc";
+}
 @ARGV = $doc;