package ThaiSchema::Base;
use strict;
use warnings;
use utf8;

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    bless { %args }, $class;
}

sub name {
    my $self = shift;
    my $class = ref $self;
    $class =~ s/.+:://;
    $class;
}

sub is_array   { 0 }
sub is_hash    { 0 }
sub is_bool    { 0 }
sub is_number  { 0 }
sub is_integer { 0 }
sub is_null    { 0 }
sub is_string  { 0 }

1;