}
sub createSchema {
- my ($class) = @_;
+ my ($class, $skip_type) = @_;
my $pdata = $class->private();
my $propertyList = $pdata->{propertyList};
};
foreach my $p (keys %$propertyList) {
+ next if $skip_type && $p eq 'type';
+
if (!$propertyList->{$p}->{optional}) {
$props->{$p} = $propertyList->{$p};
next;