<xsl:stylesheet version="1.0"
 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 xmlns:xsd="http://www.w3.org/2001/XMLSchema"
>
<xsl:param name="package" select="'Foo'" />
<xsl:output method="text"/>
<xsl:template match="/">
package <xsl:value-of select="$package" />;
<xsl:apply-templates />
1;
</xsl:template>
<xsl:template match="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);
<xsl:for-each select="xsd:restriction"
>    return <xsl:value-of select="replace(@base,':', '_')" />($value) and <xsl:for-each select="xsd:enumeration"
><xsl:if test="position() &gt; 1">|| </xsl:if
>$value eq '<xsl:value-of select="replace(replace(@value,'\\','\\\\'), '''', '\\''')"
/>' <xsl:if test="position() = last()">and </xsl:if></xsl:for-each
><xsl:apply-templates mode="restriction" select="*"
/>TRUE;
</xsl:for-each>
<xsl:if test="count(xsd:restriction) = 0"
>    return TRUE;
</xsl:if>}
</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>