6 BEGIN { $| = 1; print "1..3\n"; }
7 END {print "not ok 1\n" unless $loaded;}
8 use Locale::Maketext 1.01;
9 print "# Perl v$], Locale::Maketext v$Locale::Maketext::VERSION\n";
14 @ISA = ('Locale::Maketext');
15 sub dubbil { return $_[1] * 2 }
21 'd2' => 'hum [dubbil,_1]',
25 $lh = Woozle->get_handle('elx');
28 my $x = $lh->maketext('d2', 7);
32 print "not ok 3\n (got \"$x\")\n";