File Coverage

blib/lib/Math/Histogram.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	2	3	66.6
total	44	47	93.6

package Math::Histogram;
use 5.008001;
use strict;
use warnings;
use Carp qw(croak);
use JSON::XS ();

our $VERSION = '1.04';

require XSLoader;
XSLoader::load('Math::Histogram', $VERSION);

require Math::Histogram::Axis;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
  make_histogram
);

our %EXPORT_TAGS = (
  'all' => \@EXPORT_OK,
);

sub make_histogram {
  my @axises = map Math::Histogram::Axis->new(@$_), @_;
  return Math::Histogram->new(\@axises);
}

sub _from_hash {
  my ($class, $hashref) = @_;
  my $axises_in = $hashref->{axises};
  if (not ref($axises_in) eq 'ARRAY') {
    croak("Need 'axises' hash element as an array reference");
  }
  my $axises = [];
  push @$axises, Math::Histogram::Axis->_from_hash($_) for @$axises_in;
  return $class->_from_hash_internal($hashref, $axises);
}

sub serialize {
  my $self = shift;
  my $hash = $self->_as_hash;
  return JSON::XS::encode_json($hash);
}

sub deserialize {
  my $class = shift;
  my $hash = JSON::XS::decode_json(ref($_[0]) ? ${$_[0]} : $_[0]);
  return $class->_from_hash($hash);
}

1;
__END__