use strict; use warnings; use utf8; use Fennec::Declare class => 'DSL::HTML::Compiler'; BEGIN { use_ok $CLASS } my $perl = compile_from_html( 'foo', < foo
xxx

yyyy

xxx
EOT my $want = < q'bar baz', 'id' => q'foo') { text q' xxx '; } tag p { text q' yyyy '; tag div('class' => q'bar baz', 'id' => q'foo') { text q' xxx '; } } } 1; EOT is($perl, $want, "Got generated perl"); done_testing;