Select Code to Download

$ xsd2pm foo.xsd > Foo.pm

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

  <xsd:simpleType name="longitudeType">
     <xsd:annotation>
...
      <xsd:maxExclusive value="180.0"/>
    </xsd:restriction>
  </xsd:simpleType>

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