File Coverage

blib/lib/Paludis/ResumeState/Serialization.pm

Criterion	Covered	Total	%
statement	39	41	95.1
branch	5	12	41.6
condition	1	3	33.3
subroutine	12	12	100.0
pod	2	2	100.0
total	59	70	84.2

use strict;
use warnings;

package Paludis::ResumeState::Serialization;
BEGIN {
  $Paludis::ResumeState::Serialization::AUTHORITY = 'cpan:KENTNL';
}
{
  $Paludis::ResumeState::Serialization::VERSION = '0.01000410';
}

# ABSTRACT: Work with resume-files generated by Paludis

use Paludis::ResumeState::Serialization::Grammar;
use Class::Load 0.06 qw();
use Params::Util qw( _HASHLIKE _STRING);
use Carp qw();

no autovivification;

sub _get_content {
  my ($config) = shift;
  return $config->{content} if _STRING( $config->{content} );
  Carp::croak('{ content => } must be a scalar ')
    if defined $config->{content};

  return;
}


sub _serializer {
  my ($name) = shift;
  my $formats = {
    'basic' => __PACKAGE__ . '::Basic',

    #    'simple_objects' => __PACKAGE__ . '::MockObjects',
    #    'full_objects'   => __PACKAGE__ . '::FullObjects',
  };
  my $formatnames = join q{,}, keys %{$formats};

  Carp::croak("Format Name must be a string ( in [$formatnames] ), not undef or a ref")
    unless defined $name and _STRING($name);

  Carp::croak("Format $name not in $formatnames ") unless exists $formats->{$name};
  Class::Load::load_class( $formats->{$name} );
  return $formats->{$name};
}



sub deserialize {
  my ( $self, $config ) = @_;

  Carp::croak( 'deserialize needs a configuration hash passed to it.' . qq{\n} . 'please see perldoc for details' )
    unless _HASHLIKE($config);

  my $content = _get_content($config);

  Carp::croak('Can\'t deserialize, no content provided, provide deserialize( hash ) with content => ')
    unless defined $content;

  return _serializer( $config->{format} )->deserialize( $config->{content} );
}


sub serialize {
  my ( $self, $config ) = @_;
  return _serializer( $config->{format} )->serialize( $config->{data} );
}

1;

__END__