$ xsd2pm foo.xsd > Foo.pm

##</code><code>##

$ xsd2module foo.xsd
Creating Perl distribution for Foo...
...
...

##</code><code>##

  <xsd:simpleType name="longitudeType">
	 <xsd:annotation>
	  <xsd:documentation>
		The longitude of the point.  Decimal degrees, WGS84 datum.
	  </xsd:documentation>
	 </xsd:annotation>
    <xsd:restriction base="xsd:decimal">
      <xsd:minInclusive value="-180.0"/>
      <xsd:maxExclusive value="180.0"/>
    </xsd:restriction>
  </xsd:simpleType>

##</code><code>##

sub longitudeType {
 	&_non_null and &xsd_decimal and $_[0]->_between( $_[1], -180, 180 )
	}