view release on metacpan or  search on metacpan

bin/drawsoothist  view on Meta::CPAN

#!perl
use strict;
use warnings;
use SOOT qw/:all/;
use Math::SimpleHisto::XS;

local $/ = "";
my @h;
while (<STDIN>) {
  my $hist;
  foreach my $type (qw(json yaml simple native_pack)) {
    #binmode(STDIN) if $type eq 'native_pack';
    eval {$hist = Math::SimpleHisto::XS->new_from_dump($type, $_);};
    last if defined $hist;
  }
  die "Failed to read dump of any type" if not defined $hist;