view release on metacpan or  search on metacpan

Bananafonana.pm  view on Meta::CPAN

    my $q;
    my $r;
    my $d;

    if (! $markup =~ /[-_\.]/) {
	    croak __PACKAGE__ . "::to_bananafonana -- invalid markup character ($markup)";
    }
    if ($blocksize < 0) {
	    croak __PACKAGE__ . "::to_bananafonana -- invalid blocksize ($blocksize)";
    }
	if ($num eq "NaN" ) {
	    croak __PACKAGE__ . "::to_bananafonana -- invalid number ($num)";
	}
    while ($num > 0) {
	$q = $num / BAFO_BASE;
	$r = $num % BAFO_BASE;
	$d = substr($bananafonana_strings, $r*2, 2);
    if ($blocksize > 0 && (($#digits + 1) % $blocksize ==  0)) {
        unshift @digits, $markup;
    }
	unshift @digits, $d;