Author image Zahatski Aliaksandr
and 1 contributors

my $test = new Test::To::; $test->write($t1);

is_deeply $test->{para}->get_attr, { 'e' => [ '1', '223' ], 'formatted' => 'I', 'h' => { 'e2' => '1', 'er' => '1' }, 't1' => 1 }, '=config para formatted';

my $t2 = Perl6::Pod::Utl::parse_pod(<<TXT, default_pod=>1); =config head1 :formatted<B> =config para :like<head1> =for para :t1 :e<1 223 > :h{ er=>1, e2=>1} TXT

my $test2 = new Test::To::; $test2->write($t2);

is_deeply $test2->{para}->get_attr, { 'e' => [ '1', '223' ], 'formatted' => 'B', 'h' => { 'e2' => '1', 'er' => '1' }, 't1' => 1 }, ':like attr';