<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
>
<xsl:output method="text"/>
<xsl:template match="xsd:simpleType">
sub <xsl:value-of select="@name" /> {
    <xsl:for-each select="xsd:annotation/xsd:documentation"># <xsl:value-of select="normalize-space(.)" /></xsl:for-each>
    my($class, $value) = @_;
    return FALSE if _is_null($value);
    return <xsl:for-each select="xsd:restriction"><xsl:value-of select="replace(@base,':', '_')" />($value) and <xsl:apply-templates mode="restriction" select="*"/>TRUE;</xsl:for-each>
}
</xsl:template>
<xsl:template mode="restriction" match="xsd:minInclusive">$value &gt;= <xsl:value-of select="@value" /> and </xsl:template>
<xsl:template mode="restriction" match="xsd:minExclusive">$value &gt; <xsl:value-of select="@value" /> and </xsl:template>
<xsl:template mode="restriction" match="xsd:maxInclusive">$value &lt;= <xsl:value-of select="@value" /> and </xsl:template>
<xsl:template mode="restriction" match="xsd:maxExclusive">$value &lt; <xsl:value-of select="@value" /> and </xsl:template>
</xsl:stylesheet>