File Coverage

blib/lib/Data/Rx/Tools/ShareDirValidator.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	15	15	100.0
pod	4	4	100.0
total	67	67	100.0

use strict;
use warnings;

package Data::Rx::Tools::ShareDirValidator;
BEGIN {
  $Data::Rx::Tools::ShareDirValidator::AUTHORITY = 'cpan:KENTNL';
}
{
  $Data::Rx::Tools::ShareDirValidator::VERSION = '0.1.3';
}

# ABSTRACT: A Simple base class for generating simple validators based on Data::Rx



use Data::Rx;
use File::ShareDir qw();
use Path::Tiny qw();
use Scalar::Util qw( blessed );


sub filename { return 'schema' }


sub suffix { return '.json' }

my $cache;


sub check {
  my ( $self, $data ) = @_;
  if ( not exists $cache->{ _CLASS($self) } ) {
    $cache->{ _CLASS($self) } = _CLASS($self)->_make_rx;
  }
  return $cache->{ _CLASS($self) }->check($data);
}


sub decode_file {
  my ( $self, $file ) = @_;
  require JSON;
  return JSON->new()->utf8(1)->relaxed(1)->decode( scalar $file->slurp() );
}

sub _make_rx {
  my ($self) = @_;
  return Data::Rx->new()->make_schema( _CLASS($self)->decode_file( _CLASS($self)->_specfile ) );
}

sub _sharedir {
  my ($self) = @_;
  return Path::Tiny::path( File::ShareDir::module_dir( _CLASS($self) ) );
}

sub _specfile {
  my ($self) = @_;
  return _CLASS($self)->_sharedir->child( _CLASS($self)->filename . _CLASS($self)->suffix );
}

sub _CLASS {
  my ($classname) = @_;
  return blessed $classname if ( ref $classname && blessed $classname );
  return $classname if not ref $classname;
  require Carp;
  ## no critic (ValuesAndExpressions::RequireInterpolationOfMetachars)
  Carp::croak( q{Argument 0 was an unblessed ref instead of the expected classname,}
      . q{ ensure you are calling the method right with $classname->check( $data ) or similar} );
}

1;

__END__