JSV

 view release on metacpan or  search on metacpan

lib/JSV/Reference.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    my $args = ref $_[0] ? $_[0] : { @_ };

    %$args = (
        registered_schema_map => {},
        max_recursion         => 10,
        %$args,
    );

    bless $args => $class;
}

sub resolve {
    my ($self, $ref, $opts) = @_;
    die 'ref value should be hash' unless ref $ref eq 'HASH';
    die '$ref not found'           unless exists $ref->{'$ref'};
    my $ref_uri = URI->new($ref->{'$ref'});

    if ( ! $ref_uri->scheme && $opts->{base_uri} ) {
        $ref_uri = $ref_uri->abs($opts->{base_uri});

lib/JSV/Result.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    my $args = ref $_[0] ? $_[0] : { @_ };

    %$args = (
        errors => [],
        error => "",
        %$args,
    );

    bless $args => $class;
}


sub equals {
    $_[0]->to_boolean == $_[1];
}

sub to_boolean {
    my $self = shift;
    return (($self->errors && scalar @{ $self->errors }) || $self->error) ? 0 : 1;

lib/Test/JSV/Suite.pm  view on Meta::CPAN

        suite     => "type",
        cb        => sub {
            my ($schema, $instance, $expect) = @_;
            return 1;
        },
        skip_test_cases => {},
        verbose   => 0,
        %opts
    );

    my $self = bless \%opts => $class;
    my $test_suite = $self->load_test_suite;

    for my $test_cases (@$test_suite) {
        $self->run_test_cases($test_cases, $opts{skip_test_cases});
    }

    done_testing;
}

sub run_test_cases {

 view all matches for this distribution
 view release on metacpan -  search on metacpan