use Test::Simple tests => 7;
ok(1);
ok(1);
ok(1);
ok(1);
my $content = Markup::Content->new( target => 'lib/Markup/noname.html',
template => 'lib/Markup/noname.xml',
target_options => {
no_squash_whitespace => [qw(script style pi code pre textarea)]
},
template_options => {
callbacks => {
title => sub {
print shift()->get_text();
}
}
});
ok($content);
$content->extract();
ok($content->tree);
$content->tree->save_as(\*STDOUT, 'xml');
ok(1);