sub resolve_filter : Test { my $test = shift; my $o = $test->parse_mem( <<TXT, 'Perl6::Pod::Parser::CustomCodes' ); =use CustomCode T =para sds TT: test_code TXT is_deeply $o, [ { 'name' => 'para', 'childs' => [ 'sds ', { 'name' => 'TT', 'childs' => [ 'test_code' ], 'attr' => {} }, '' ], 'attr' => {} } ]; }

sub custom_code_export_mem : Test { my $test = shift; my ( $p, $f, $o ) = $test->parse_to_xml( <<TXT, 'Perl6::Pod::Parser::CustomCodes' ); =use CustomCodeCF CF =begin head1 CF:eer =end head1 TXT $test->is_deeply_xml( $o, q#<head1 pod:type='block' xmlns:pod='http://perlcabal.org/syn/S26.html'><ok /> </head1>#)

} sub code_preconfig : Test { my $test =shift; my ($p, $f, $o) = $test->parse_to_xml(<<TXT, 'Perl6::Pod::Parser::CustomCodes'); =use CustomCodeCB OO =config OO :w1 =begin para OO: r =end para TXT $test->is_deeply_xml ($o, q#<para pod:type='block' xmlns:pod='http://perlcabal.org/syn/S26.html'><OO pod:type='block' w1='1'>r</OO> </para>#)

}

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;