Checking if your kit is complete... Looks good Writing Makefile for Blatte Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. cp lib/Blatte/Parser.pm blib\lib/Blatte/Parser.pm cp lib/Blatte/Syntax.pm blib\lib/Blatte/Syntax.pm cp lib/Blatte/Compiler.pm blib\lib/Blatte/Compiler.pm cp lib/Blatte/Ws.pm blib\lib/Blatte/Ws.pm cp lib/Blatte.pm blib\lib/Blatte.pm cp lib/Blatte/Builtins.pm blib\lib/Blatte/Builtins.pm C:\cpanrun\build\5-10-0\bin\perl.exe "-Iblib\arch" "-Iblib\lib" bin/blatte.PL bin/blatte C:\cpanrun\build\5-10-0\bin\perl.exe -MExtUtils::Command -e cp bin/blatte blib\script\blatte pl2bat.bat blib\script\blatte Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/arith......1..4 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = $add; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 1 &Blatte::wrapws('', do { my $_first = $multiply; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 2 &Blatte::wrapws('', do { my $_first = $divide; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 3 &Blatte::wrapws('', do { my $_first = $subtract; my @_rest = (&Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 4 ok t/array......1..5 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = $aref; my @_rest = (&Blatte::wrapws(' ', do { my $_first = 'a'; my @_rest = (&Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', 'd'), &Blatte::wrapws(' ', 'e')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 1 &Blatte::wrapws('', do { use vars '$a'; $a = do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; []; }) &Blatte::wrapws('', do { my $_first = $aset; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', '0'), &Blatte::wrapws(' ', 'x')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) &Blatte::wrapws('', $a) ok 2 &Blatte::wrapws('', do { my($a) = ((do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } })); do { my $_first = $push; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; }) ok 3 &Blatte::wrapws('', do { my $a = do { my $_first = '1'; my @_rest = (&Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3'), &Blatte::wrapws(' ', '4')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } };; my $b = do { my $_first = $pop; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } };; do { my $_first = $b; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }) ok 4 &Blatte::wrapws('', do { my $_first = $list; my @_rest = (&Blatte::wrapws(' ', '1'), &Blatte::wrapws(' ', '2'), &Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 5 ok t/bool.......1..2 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', (&Blatte::true([]) || &Blatte::true('7'))) ok 1 &Blatte::wrapws('', (&Blatte::true((&Blatte::true('2') && &Blatte::true([]) && &Blatte::true('4'))) || &Blatte::true('8'))) ok 2 ok t/cond.......1..2 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { if (&Blatte::true([])) { ; '1'; } elsif (&Blatte::true('x')) { ; '2'; } elsif (&Blatte::true([])) { ; '3'; } elsif (&Blatte::true('y')) { ; '4'; } }) ok 1 &Blatte::wrapws('', do { if (&Blatte::true('0')) { ; '1'; } elsif (&Blatte::true('x')) { ; '2'; } elsif (&Blatte::true('y')) { ; '3'; } }) ok 2 ok t/hash.......1..1 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = $hashref; my @_rest = (&Blatte::wrapws(' ', do { my $_first = $mkhash; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', 'd'), &Blatte::wrapws(' ', 'e'), &Blatte::wrapws(' ', 'f')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }), &Blatte::wrapws(' ', 'c')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 1 ok t/let........1..3 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my($x) = (('17')); $x; }) ok 1 &Blatte::wrapws('', do { my($a) = (('1')); do { my($a, $b) = (('2'), ($a)); $b; }; }) ok 2 &Blatte::wrapws('', do { my $a = '2';; my $b = $a;; $b; }) ok 3 ok t/literal....1..3 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 &Blatte::wrapws('', 'a') # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', 'a b') ok 1 ok 2 &Blatte::wrapws('', 'a\\b') ok 3 ok t/str........1..6 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:33 2008 # Current time GMT: Wed Feb 27 14:27:33 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = $uc; my @_rest = (&Blatte::wrapws(' ', 'abc')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 &Blatte::wrapws('', do { my $_first = $lc; my @_rest = (&Blatte::wrapws(' ', 'ABC')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 2 &Blatte::wrapws('', do { my $_first = $substr; my @_rest = (&Blatte::wrapws(' ', 'abcde'), &Blatte::wrapws(' ', '1'), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 3 &Blatte::wrapws('', do { my $_first = $substr; my @_rest = (&Blatte::wrapws(' ', 'abcde'), &Blatte::wrapws(' ', '-4'), &Blatte::wrapws(' ', '2')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 4 &Blatte::wrapws('', do { if (&Blatte::true(do { my $_first = $streq; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'a')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } })) { 'yes'; } else { 'no'; } }) ok 5 &Blatte::wrapws('', do { if (&Blatte::true(do { my $_first = $streq; my @_rest = (&Blatte::wrapws(' ', 'a'), &Blatte::wrapws(' ', 'b')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } })) { 'yes'; } else { 'no'; } }) ok 6 ok t/sub........1..4 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:34 2008 # Current time GMT: Wed Feb 27 14:27:34 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = sub { my $_named = shift; my($x) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); $x; }; my @_rest = (&Blatte::wrapws(' ', 'z')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 &Blatte::wrapws('', do { use vars '$r'; $r = sub { my $_named = shift; my($x, $y) = map { &Blatte::unwrapws($_); } splice(@_, 0, 2); do { my $_first = $y; my @_rest = (&Blatte::wrapws(' ', $x)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $r; 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 { use vars '$f'; $f = sub { my $_named = shift; my($c) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); my $a = $_named->{a}; my $b = $_named->{b}; do { my $_first = 'a'; my @_rest = (&Blatte::wrapws(' ', $a), &Blatte::wrapws(' ', 'b'), &Blatte::wrapws(' ', $b), &Blatte::wrapws(' ', 'c'), &Blatte::wrapws(' ', $c)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $f; my @_rest = (&Blatte::wrapws(' ', '3')); if (ref($_first) eq 'CODE') { &$_first({a => '1', b => '2'}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 3 &Blatte::wrapws('', do { use vars '$f2'; $f2 = sub { my $_named = shift; my($a) = map { &Blatte::unwrapws($_); } splice(@_, 0, 1); my $b = [@_]; do { my $_first = $b; my @_rest = (&Blatte::wrapws(' ', $a)); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }; }; []; }) &Blatte::wrapws('', do { my $_first = $f2; my @_rest = (&Blatte::wrapws(' ', 'x'), &Blatte::wrapws(' ', 'y'), &Blatte::wrapws(' ', 'z')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0]), @_rest[1 .. $#_rest]); } else { [$_first, @_rest]; } }) ok 4 ok t/syntax.....1..1 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:34 2008 # Current time GMT: Wed Feb 27 14:27:34 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { use vars '$if_foo'; $if_foo = sub { my $_named = shift; '1'; }; []; }) &Blatte::wrapws('', do { my $_first = $if_foo; my @_rest = (&Blatte::wrapws(' ', '0')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 ok t/var........1..2 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:34 2008 # Current time GMT: Wed Feb 27 14:27:34 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { use vars '$f'; $f = 'foo'; []; }) &Blatte::wrapws('', $f) ok 1 &Blatte::wrapws('', do { use vars '$f'; $f = 'foo'; []; }) &Blatte::wrapws('', $f = 'bar') &Blatte::wrapws('', $f) ok 2 ok t/ws.........1..1 # Running under perl version 5.010000 for MSWin32 # Win32::BuildNumber 1001 # Current time local: Wed Feb 27 06:27:34 2008 # Current time GMT: Wed Feb 27 14:27:34 2008 # Using Test.pm version 1.25 &Blatte::wrapws('', do { my $_first = 'x'; my @_rest = (&Blatte::wrapws(' ', 'y')); if (ref($_first) eq 'CODE') { &$_first({}, &Blatte::unwrapws($_rest[0])); } else { [$_first, @_rest]; } }) ok 1 ok All tests successful. Files=12, Tests=34, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Microsoft (R) Program Maintenance Utility Version 6.00.8168.0 Copyright (C) Microsoft Corp 1988-1998. All rights reserved. Installing C:\cpanrun\build\5-10-0\html\bin\blatte.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte\Builtins.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte\Compiler.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte\Parser.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte\Syntax.html Installing C:\cpanrun\build\5-10-0\html\site\lib\Blatte\Ws.html Installing C:\cpanrun\build\5-10-0\site\lib\Blatte.pm Installing C:\cpanrun\build\5-10-0\site\lib\Blatte\Builtins.pm Installing C:\cpanrun\build\5-10-0\site\lib\Blatte\Compiler.pm Installing C:\cpanrun\build\5-10-0\site\lib\Blatte\Parser.pm Installing C:\cpanrun\build\5-10-0\site\lib\Blatte\Syntax.pm Installing C:\cpanrun\build\5-10-0\site\lib\Blatte\Ws.pm Installing C:\cpanrun\build\5-10-0\site\bin\blatte Installing C:\cpanrun\build\5-10-0\site\bin\blatte.bat Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod