This is Pod6

=begin pod
This ordinary paragraph introduces a code block:

    $this = 1 * code('block');
    $which.is_specified(:by<indenting>);
=end pod

This, too

=head3 X<C<string literal>>
C<'scores.txt'> is a I&t;string literal>.

=begin code :preamble<my $file>
my @names = $file.get.words;
=end code

Code is also doc

Docs from code

=begin pod
This is I<apocrypha>
=head1 Lesson 1
Doc is code
=end pod
say $=pod[0].perl;
=output
Pod::Block::Named.new(name => "pod", config => {}, contents => [Pod::Block::Para.new(config => {}, contents => ["This is ", Pod::FormattingCode.new(type => "I", meta => [], config => {}, contents => ["apocrypha"])]), Pod::Heading.new(level => 1, config => {}, contents => [Pod::Block::Para.new(config => {}, contents => ["Lesson 1"])]), Pod::Block::Para.new(config => {}, contents => ["Doc is code"])])

Richard Hainsworth's Pod::To::Cached

my Pod::To::Cached $cache .= new(:source<../pods>);
$cache.update-cache;
for $cache.hash-files.kv -> $source-name, $status {
    say "$source-name is $status";
    say $cache.pod($source-name);
}

Compile only once

`Documentable` registry

 my $registry = Perl6::Documentable::Registry.new( :$cache, :$topdir,
            :dirs(["Language", "Type", "Programs", "Native"]),  :verbose($v)
        );

# Perl6::Documentable::Registry BUILD →
$!pod-cache = Pod::To::Cached.new( source => $!topdir,  :$!verbose,
              path   => "." ~ $!topdir );

Builds up to `p6doc`

sub process-type-pod-files(IO::Path @files,
    --> Array[Perl6::Documentable]
) is export {
    my Perl6::Documentable @results;
    for @files.list -> $f {
        my $documentable = Perl6::Documentable::File.new(
          dir => "Type", filename => $f.basename.Str,
          tg => Perl6::TypeGraph.new-from-file,
          pod => load($f).first );
        $documentable.process();
        @results.push($documentable);
    }
    @results
	  }

Documenting now

=begin pod :kind("Type") :subkind("class") :category("generic")
=TITLE class Foo
=SUBTITLE Generic class

    class Foo {}

Foo is the class you use when you are talking about a generic class.

=for code
my Foo $foo .=new

=end pod

Processing the documentation

use Perl6::Documentable::Registry;
my $top-dir = "resources/pods/";
my $registry = Perl6::Documentable::Registry.new(
        topdir    => $top-dir,             # doc containing the pod collection
        dirs      => ["Type", "Language"], # dirs to process
        verbose   => True,
        use-cache => True                  # recommended
      );
$registry.compose;
say $registry.lookup("Type",:by<kind>);

Apocrypha: Stories about Perl 6 documentation

@jjmerelo

`@jjmerelo`