Acme-Bleach-Numerically

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    Acme::Bleach::Numerically - Fit the whole world between 0 and 1

SYNOPSIS
      # To bleach your script numerically
      use Acme::Bleach::Numerically;
      print "Hello, world!\n";

      # Or do your own bleaching
      use Acme::Bleach::Numerically qw/num2str str2num/;
      my $world = str2num(qq{print "hello, world!\n";})

DESCRIPTION
    Georg Cantor has found that you can squeeze the whole world between zero
    and one. Many say he went insane because of that but the reality is, he
    just bleached himself with continuum hypothesis :)

    This module does just that -- map your whole world onto a single point
    between 0 and 1. Welcome to the Programming Continuum of Perl!

  EXPORT

lib/Acme/Bleach/Numerically.pm  view on Meta::CPAN

package Acme::Bleach::Numerically;

use 5.008001;
use strict;
use warnings;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.4 $ =~ /(\d+)/g;
our $MAX_SIZE = 0x7fff_ffff;
use Math::BigInt lib => 'GMP'; # faster if there, fallbacks if not
use Math::BigFloat;
use Math::BigRat;

sub str2num{
    my $str = shift;
    return 0 if $str eq '';
    Math::BigFloat->accuracy(length($str) * 8); 
    my $bnum = Math::BigFloat->new(0);

lib/Acme/Bleach/Numerically.pm  view on Meta::CPAN

	}else{                       # whiten
	    {
		no warnings;
		eval $src;
		if ($@){                 # dirty
		    $@ =~ s/\(eval \d+\)/$0/eg;
		    die $@;
		}
	    }
	    open my $out, ">:raw", $0 or die "$0 : $!";
	    print $out 
		"use ", __PACKAGE__, ";\n", 
		    str2num($src), "\n";
	}
	exit;
    }
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

Acme::Bleach::Numerically - Fit the whole world between 0 and 1

=head1 SYNOPSIS

  # To bleach your script numerically
  use Acme::Bleach::Numerically;
  print "Hello, world!\n";

  # Or do your own bleaching
  use Acme::Bleach::Numerically qw/num2str str2num/;
  my $world = str2num(qq{print "hello, world!\n";})

=head1 DESCRIPTION

Georg Cantor has found that you can squeeze the whole world between
zero and one.  Many say he went insane because of that but the reality
is, he just bleached himself with continuum hypothesis :)

This module does just that -- map your whole world onto a single point
between 0 and 1.  Welcome to the Programming Continuum of Perl!

t/helloworld.pl  view on Meta::CPAN

use Acme::Bleach::Numerically;
print "Hello, World!\n";

t/japh.pl  view on Meta::CPAN

use Acme::Bleach::Numerically;
print "Dan the Just Another Perl Hacker\n";