#!/usr/bin/perl
use strict;
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';
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;
exit( Pod::Perldoc->run() );