File Coverage

blib/lib/Metabase/Fact/Hash.pm

Criterion	Covered	Total	%
statement	36	38	94.7
branch	5	6	83.3
condition	2	4	50.0
subroutine	9	11	81.8
pod	3	3	100.0
total	55	62	88.7

use 5.006;
use strict;
use warnings;

package Metabase::Fact::Hash;

our $VERSION = '0.025';

use Carp ();
use JSON::MaybeXS ();

use Metabase::Fact;
our @ISA = qw/Metabase::Fact/;

sub validate_content {
    my ($self)  = @_;
    my $content = $self->content;
    my $class   = ref $self;
    Carp::confess "content must be a hashref"
      unless ref $content eq 'HASH';
    my $get_req = $self->can('required_keys') || sub { () };
    my $get_opt = $self->can('optional_keys') || sub { () };
    # find missing
    my @missing = grep { !exists $content->{$_} } $get_req->();
    Carp::croak "missing required keys for $class\: @missing\n" if @missing;
    # check for invalid
    my %valid = map { $_ => 1 } ( $get_req->(), $get_opt->() );
    my @invalid = grep { !exists $valid{$_} } keys %$content;
    Carp::croak "invalid keys for $class\: @invalid\n" if @invalid;
    return 1;
}

sub content_as_bytes {
    my ($self) = @_;
    return JSON::MaybeXS->new(ascii => 1)->encode( $self->content );
}

sub content_from_bytes {
    my ( $class, $bytes ) = @_;
    return JSON::MaybeXS->new(ascii => 1)->decode($bytes);
}

1;

# ABSTRACT: fact subtype for simple hashes

__END__