File Coverage

blib/lib/Data/Sah/Object/Schema.pm

Criterion	Covered	Total	%
statement	51	54	94.4
branch	8	8	100.0
condition	1	2	50.0
subroutine	8	9	88.8
pod	6	6	100.0
total	74	79	93.6

package Data::Sah::Object::Schema;

our $DATE = '2014-07-28'; # DATE
our $VERSION = '0.01'; # VERSION

use 5.010;
use strict;
use warnings;

sub new {
    my ($class, $sch, $is_normalized) = @_;
    $sch //= [undef, {}, {}];

    unless ($is_normalized) {
        require Data::Sah::Normalize;
        $sch = Data::Sah::Normalize::normalize_schema($sch);
    }

    my $obj = \$sch;
    bless $obj, $class;
}

sub type {
    my $self = shift;
    if (@_) {
        my $old = ${$self}->[0];
        ${$self}->[0] = $_[0];
        return $old;
    } else {
        return ${$self}->[0];
    }
}

sub clause {
    my $self = shift;
    my $name = shift;
    if (@_) {
        my $old = ${$self}->[1]{$name};
        ${$self}->[1]{$name} = $_[0];
        return $old;
    } else {
        return ${$self}->[1]{$name};
    }
}

sub req {
    my $self = shift;
    if (@_) {
        my $old = ${$self}->[1]{req};
        ${$self}->[1]{req} = $_[0];
        return $old;
    } else {
        return ${$self}->[1]{req};
    }
}

sub delete_clause {
    my $self = shift;
    my $name = shift;
    my $old = ${$self}->[1]{$name};
    delete ${$self}->[1]{$name};
    return $old;
}

sub as_struct {
    my $self = shift;
    ${$self};
}

1;
# ABSTRACT: Represent Sah schema

__END__