Code block with interesting indentation is parsed as 4 separate blocks

gistfile1.txt

=begin pod

In other words, C<.WHY> and C<.WHEREFORE> are inverse operations:

                            .WHY
                 ----------------------------
                |                            |
                |                            v
        -----------------            -----------------
        | Declared code |            | Documentation |
        |    object     |            |    object     |
        -----------------            -----------------
                ^                            |
                |                            |
                 ----------------------------
                         .WHEREFORE



When the L<default C<DOC INIT> block|#How Pod is parsed and processed>
renders these Pod objects, it automatically includes information about
the declarator as well.

=end pod


# This is parsed as 4 Pod::Block::Code instead of just one.
$=pod.perl.say;