object representing the RST test specifications.
use Carp;
use Data::Mirror qw(mirror_file mirror_json);
use ICANN::RST::Case;
use ICANN::RST::ChangeLog;
use ICANN::RST::DataProvider;
use ICANN::RST::
se constant SCHEMA_VERSION => q{1.14.0};
use feature qw(say);
use strict;
$YAML::XS::Boolean = q{JSON::PP};
sub url_from_release {
my ($package, $release) = @_;
return URI->new(sprintf(q{ht
load/%s/rst-test-specs.yaml}, $release));
}
sub current_version { shift->url_from_release(mirror_json(q{https://api.github.com/repos/icann/rst-test-specs/releases/latest})->{name}) }
sub new_from_ve
ut;
# ABSTRACT: an object representing an RST input parameter.
use base qw(ICANN::RST::Base);
use JSON::Schema;
use strict;
sub description { ICANN::RST::Text->new($_[0]->{'Description'}) }
sub type
chema { $_[0]->{'Schema'} ? JSON::Schema->new(numify($_[0]->{'Schema'})) : undef }
sub required { exists($_[0]->{'Required'}) && $_[0]->{'Required'} }
sub jsonExample {
my $self = shift;
ify($value));
}
return \@array;
}
sub numify_scalar {
my $value = shift;
if (q{JSON::PP::Boolean} ne ref($value) && $value =~ /^\d+\.?\d*$/) {
$value += 0;
}
return