use strict; use warnings; use Path::Tiny; my $dir_path = path (__FILE__)->parent; $dir_path->child ('demo-1.html.xud')->spew ("abc \xA1\xA2\xA3"); $dir_path->child ('demo-2.html.xud')->spew (""); $dir_path->child ('demo-2-content.html')->spew ("abc \xA1\xA2\xA3"); $dir_path->child ('demo-3.html')->spew ("abc \xA1\xA2\xA3"); $dir_path->child ('demo-4.html')->spew (qq{abc \xA1\xA2\xA3}); $dir_path->child ('demo-5.html')->spew (qq{

::after }); $dir_path->child ('demo-5-style.css.xud')->spew (qq{ p::after { content: "abc\xA1\xA2\xA3" } }); $dir_path->child ('demo-6.html')->spew (qq{

::after }); $dir_path->child ('demo-6-style.css')->spew (qq{\@charset "x-user-defined"; p::after { content: "abc\xA1\xA2\xA3" } }); $dir_path->child ('demo-7.html.xud')->spew (qq{

::after }); $dir_path->child ('demo-7-style.css')->spew (qq{ p::after { content: "abc\xA1\xA2\xA3" } }); $dir_path->child ('demo-8.xml')->spew (qq{ abc \xA1\xA2\xA3 }); $dir_path->child ('demo-9.xml.xud')->spew (qq{ abc \xA1\xA2\xA3 }); $dir_path->child ('demo-10.xml.xud')->spew (qq{ abc \xA1\xA2\xA3 }); ## License: Public Domain.