File Coverage

blib/lib/ThaiSchema/Base.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod	0	9	0.0
total	36	47	76.6

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;