sub resolve_filter : Test { my $test = shift; my $o = $test->parse_mem( <<TXT, 'Perl6::Pod::Parser::CustomCodes' ); =begin pod =use CustomCode T sds TT: test_code =end pod TXT

is_deeply $o,
  [
    {
        'name'   => 'pod',
        'childs' => [
            'sds ',
            {
                'name'   => 'TT',
                'childs' => ['test_code'],
                'attr'   => {}
            },
            ''
        ],
        'attr' => {}
    }
  ];
}

sub custom_code_export_mem : Test { my $test = shift; my ( $p, $f, $o ) = $test->parse_mem( <<TXT, 'Perl6::Pod::Parser::CustomCodes' ); =use CustomCodeCF C =begin head1 CF:eer =end head1 TXT is_deeply $o, [ { 'name' => 'head1', 'childs' => [ { 'name' => 'ok', 'attr' => {} }, '' ], 'attr' => {} } ]; } sub code_preconfig : Test { my $test =shift; my ($p, $f, $o) = $test->parse_mem(<<TXT, 'Perl6::Pod::Parser::CustomCodes'); =use CustomCodeCF O =config O :w1 =begin para OO: r =end para TXT is_deeply $o, [ { 'name' => 'para', 'childs' => [ { 'name' => 'ok', 'attr' => { 'w1' => 1 } }, '' ], 'attr' => {} } ]; }

sub multiline_M : Test { my $test = shift; my $o = $test->parse_mem(<<TXT, 'Perl6::Pod::Parser::CustomCodes'); =use CustomCode F =for head1 FF: test sdsd sdsdsd sdsd TXT is_deeply $o, [ { 'name' => 'head1', 'childs' => [ { 'name' => 'FF', 'childs' => [ 'test sdsd sdsdsd sdsd ' ], 'attr' => {} }, '' ], 'attr' => {} } ]; } 1;