Checking if your kit is complete...
Looks good
Writing Makefile for Blatte::HTML
cp lib/Blatte/HTML.pm blib/lib/Blatte/HTML.pm
/home/cpanrun/ia64/build/5.8.2/bin/perl "-Iblib/arch" "-Iblib/lib" bin/blatte-html.PL bin/blatte-html
cp bin/blatte-html blib/script/blatte-html
/home/cpanrun/ia64/build/5.8.2/bin/perl "-MExtUtils::MY" -e "MY->fixin(shift)" blib/script/blatte-html
Manifying blib/man1/blatte-html.1
Manifying blib/man3/Blatte::HTML.3
PERL_DL_NONLAZY=1 /home/cpanrun/ia64/build/5.8.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t
t/encode....&Blatte::wrapws('',
                do {
                  my $_first = 'a';
                  my @_rest = (&Blatte::wrapws(' ',
                                               '&'),
                               &Blatte::wrapws(' ',
                                               'b'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]),
                             @_rest[1 .. $#_rest]);
                  } else {
                    [$_first, @_rest];
                  }
                })

&Blatte::wrapws('',
                do {
                  my $_first = $html_ent_no;
                  my @_rest = (&Blatte::wrapws(' ',
                                               'a'),
                               &Blatte::wrapws(' ',
                                               '&'),
                               &Blatte::wrapws(' ',
                                               'b'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]),
                             @_rest[1 .. $#_rest]);
                  } else {
                    [$_first, @_rest];
                  }
                })

1..2
# Running under perl version 5.008002 for hpux
# Current time local: Wed Jun 27 20:37:18 2007
# Current time GMT:   Thu Jun 28 03:37:18 2007
# Using Test.pm version 1.24
ok 1
ok 2
ok
t/par.......1..5
# Running under perl version 5.008002 for hpux
# Current time local: Wed Jun 27 20:37:19 2007
# Current time GMT:   Thu Jun 28 03:37:19 2007
# Using Test.pm version 1.24
&Blatte::wrapws('',
                do {
                  my $_first = 'a';
                  my @_rest = (&Blatte::wrapws('

',
                                               'b'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]));
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 1
&Blatte::wrapws('',
                do {
                  my $_first = $html_p_no;
                  my @_rest = (&Blatte::wrapws(' ',
                                               'a'),
                               &Blatte::wrapws('

',
                                               'b'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]),
                             @_rest[1 .. $#_rest]);
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 2
&Blatte::wrapws('',
                do {
                  my $_first = 'a';
                  my @_rest = (&Blatte::wrapws('

',
                                               do {
                                                 my $_first = $p;
                                                 my @_rest = (&Blatte::wrapws(' ',
                                                                              'b'));
                                                 if (ref($_first) eq 'CODE') {
                                                   &$_first({},
                                                            &Blatte::unwrapws($_rest[0]));
                                                 } else {
                                                   [$_first, @_rest];
                                                 }
                                               }));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]));
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 3
&Blatte::wrapws('',
                do {
                  my $_first = $b;
                  my @_rest = (&Blatte::wrapws(' ',
                                               'a'),
                               &Blatte::wrapws('

',
                                               'b'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]),
                             @_rest[1 .. $#_rest]);
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 4
&Blatte::wrapws('',
                do {
                  my $_first = 'a';
                  my @_rest = (&Blatte::wrapws('

',
                                               do {
                                                 my $_first = $b;
                                                 my @_rest = (&Blatte::wrapws(' ',
                                                                              'b'),
                                                              &Blatte::wrapws('

',
                                                                              'c'));
                                                 if (ref($_first) eq 'CODE') {
                                                   &$_first({},
                                                            &Blatte::unwrapws($_rest[0]),
                                                            @_rest[1 .. $#_rest]);
                                                 } else {
                                                   [$_first, @_rest];
                                                 }
                                               }));
                  if (ref($_first) eq 'CODE') {
                    &$_first({},
                             &Blatte::unwrapws($_rest[0]));
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 5
ok
t/tags......&Blatte::wrapws('',
                do {
                  my $_first = $a;
                  my @_rest = (&Blatte::wrapws(' ',
                                               'Blatte'));
                  if (ref($_first) eq 'CODE') {
                    &$_first({href => 'http://www.blatte.org/'},
                             &Blatte::unwrapws($_rest[0]));
                  } else {
                    [$_first, @_rest];
                  }
                })

1..3
# Running under perl version 5.008002 for hpux
# Current time local: Wed Jun 27 20:37:19 2007
# Current time GMT:   Thu Jun 28 03:37:19 2007
# Using Test.pm version 1.24
ok 1
&Blatte::wrapws('',
                do {
                  my $_first = $img;
                  my @_rest = ();
                  if (ref($_first) eq 'CODE') {
                    &$_first({ismap => do {
                                  my $_first = $html_bool_yes;
                                  my @_rest = ();
                                  if (ref($_first) eq 'CODE') {
                                    &$_first({});
                                  } else {
                                    [$_first, @_rest];
                                  }
                                }});
                  } else {
                    [$_first, @_rest];
                  }
                })

&Blatte::wrapws('',
                do {
                  my $_first = $img;
                  my @_rest = ();
                  if (ref($_first) eq 'CODE') {
                    &$_first({ismap => do {
                                  my $_first = $html_bool_no;
                                  my @_rest = ();
                                  if (ref($_first) eq 'CODE') {
                                    &$_first({});
                                  } else {
                                    [$_first, @_rest];
                                  }
                                }});
                  } else {
                    [$_first, @_rest];
                  }
                })

ok 2
ok 3
ok
All tests successful.
Files=3, Tests=10,  1 wallclock secs ( 0.47 cusr +  0.09 csys =  0.56 CPU)
Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Blatte/HTML.pm
Installing /home/cpanrun/ia64/build/5.8.2/man/man1/blatte-html.1
Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Blatte::HTML.3
Installing /home/cpanrun/ia64/build/5.8.2/bin/blatte-html
Appending installation info to /home/cpanrun/ia64/build/5.8.2/lib/5.8.2/IA64.ARCHREV_0-thread-multi/perllocal.pod