begin.t

source of perl for linux application,

print "# Testing :-target and accept_target + two simples, latter with leading whitespace ...\n";

ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nI<stuff>\nTrala!\n\n   Hm, B<things>!\nTrala.\n\n=end :mojojojo\n\nYup.\n"),
  qq{<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>}
);
ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :psketti,mojojojo,crunk\n\nI<stuff>\nTrala!\n\n   Hm, B<things>!\nTrala.\n\n=end :psketti,mojojojo,crunk\n\nYup.\n"),
  qq{<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>}
);

print "#   now with accept_target_as_text\n";
ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=begin mojojojo\n\nI<stuff>\nTrala!\n\n   Hm, B<things>!\nTrala.\n\n=end mojojojo\n\nYup.\n"),
  qq{<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Para><I>stuff</I> Trala!</Para><Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.</Verbatim></for><Para>Yup.</Para></Document>}
);
ok( $x->_out( \&mojtext,  join "\n\n" =>
  "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk",
  "I<stuff>\nTrala!",
  "   Hm, B<things>!\nTrala.",
  "=end psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target="psketti,mojojojo,crunk" target_matching="mojojojo">}.
 qq{<Para><I>stuff</I> Trala!</Para>}.
 qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.</Verbatim>}.
 qq{</for><Para>Yup.</Para></Document>}
);

print "# Now with five paragraphs (p,v,v,p,p) and accept_target_as_text\n";

ok( $x->_out( \&mojtext,  join "\n\n" =>
  "=pod\n\nI like pie.\n\n=begin psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "Woohah S<thwack\nwoohah>squim!",
  "=end psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target="psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}.
 qq{</for><Para>Yup.</Para></Document>}
);



print "#\n# Now nested begin...end regions...\n";

sub mojprok { shift->accept_targets(qw{mojojojo prok}) }

ok( $x->_out( \&mojprok,  join "\n\n" =>
  "=pod\n\nI like pie.",
  "=begin :psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "=begin :prok",
      "Woohah S<thwack\nwoohah>squim!",
    "=end :prok",
    "ZubZ<>aaz.",
  "=end :psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<for target=":prok" target_matching="prok">}.
     qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}.
   qq{</for>}.
   qq{<Para>Zubaaz.</Para>}.
 qq{</for>}.
 qq{<Para>Yup.</Para></Document>}
);


print "# a little more complex this time...\n";

ok( $x->_out( \&mojprok,  join "\n\n" =>
  "=pod\n\nI like pie.",
  "=begin :psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "=begin :prok",
      "   Blorp, B<things>!\nTrala.",
      "    Khh, F<< dodads >>!\nHurf.",
      "Woohah S<thwack\nwoohah>squim!",
    "=end :prok",
    "ZubZ<>aaz.",
  "=end :psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<for target=":prok" target_matching="prok">}.
     qq{<Verbatim xml:space="preserve">   Blorp, B&#60;things&#62;!\nTrala.\n\n}.
     qq{    Khh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
     qq{<Para>Woohah <S>thwack woohah</S>squim!</Para>}.
   qq{</for>}.
   qq{<Para>Zubaaz.</Para>}.
 qq{</for>}.
 qq{<Para>Yup.</Para></Document>}
);


$d = 10;
print "# Now with nesting where inner region is non-resolving...\n";

ok( $x->_out( \&mojprok,  join "\n\n" =>
  "=pod\n\nI like pie.",
  "=begin :psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "=begin prok",
      "   Blorp, B<things>!\nTrala.",
      "    Khh, F<< dodads >>!\nHurf.",
      "Woohah S<thwack\nwoohah>squim!",
    "=end prok",
    "ZubZ<>aaz.",
  "=end :psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<for target="prok" target_matching="prok">}.
     qq{<Data xml:space="preserve">   Blorp, B&#60;things&#62;!\nTrala.\n\n}.
     qq{    Khh, F&#60;&#60; dodads &#62;&#62;!\nHurf.\n</Data>}.
     qq{<Data xml:space="preserve">Woohah S&#60;thwack\nwoohah&#62;squim!</Data>}.
   qq{</for>}.
   qq{<Para>Zubaaz.</Para>}.
 qq{</for>}.
 qq{<Para>Yup.</Para></Document>}
);



print "# Now a begin...end with a non-resolving for inside\n";

ok( $x->_out( \&mojprok,  join "\n\n" =>
  "=pod\n\nI like pie.",
  "=begin :psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "=for prok"
     . "   Blorp, B<things>!\nTrala.\n    Khh, F<< dodads >>!\nHurf.",
    "ZubZ<>aaz.",
  "=end :psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<for target="prok" target_matching="prok">}.
     qq{<Data xml:space="preserve">Blorp, B&#60;things&#62;!\nTrala.\n}.
     qq{    Khh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Data>}.
   qq{</for>}.
   qq{<Para>Zubaaz.</Para>}.
 qq{</for>}.
 qq{<Para>Yup.</Para></Document>}
);




print "# Now a begin...end with a resolving for inside\n";

ok( $x->_out( \&mojprok,  join "\n\n" =>
  "=pod\n\nI like pie.",
  "=begin :psketti,mojojojo,crunk",
    "I<stuff>\nTrala!",
    "   Hm, B<things>!\nTrala.",
    "    Oh, F<< dodads >>!\nHurf.",
    "Boing C<spr-\t\n\t\t\toink>\n Blorg!",
    "=for :prok"
     . "   Blorp, B<things>!\nTrala.\n    Khh, F<< dodads >>!\nHurf.",
    "ZubZ<>aaz.",
  "=end :psketti,mojojojo,crunk",
  "Yup.\n"
 ),
 qq{<Document><Para>I like pie.</Para>}.
 qq{<for target=":psketti,mojojojo,crunk" target_matching="mojojojo">}.
   qq{<Para><I>stuff</I> Trala!</Para>}.
   qq{<Verbatim xml:space="preserve">   Hm, B&#60;things&#62;!\nTrala.\n\n}.
   qq{    Oh, F&#60;&#60; dodads &#62;&#62;!\nHurf.</Verbatim>}.
   qq{<Para>Boing <C>spr- oink</C> Blorg!</Para>}.
   qq{<for target=":prok" target_matching="prok">}.
     qq{<Para>Blorp, <B>things</B>! Trala. Khh, }.
     qq{<F>dodads</F>! Hurf.</Para>}.
   qq{</for>}.
   qq{<Para>Zubaaz.</Para>}.
 qq{</for>}.
 qq{<Para>Yup.</Para></Document>}
);




print "# Wrapping up... one for the road...\n";
ok 1;
print "# --- Done with ", __FILE__, " --- \n";