sub {
#
my($class, $value) = @_;
return FALSE if _is_null($value);
return ($value) and TRUE;
}
$value >= and
$value > and
$value <= and
$value < and
####
sub longitudeType {
# The longitude of the point. Decimal degrees, WGS84 datum.
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_decimal($value) and $value >= -180.0 and $value < 180.0 and TRUE;
}
##
##
The longitude of the point. Decimal degrees, WGS84 datum.
##
##
sub latitudeType {
# The latitude of the point. Decimal degrees, WGS84 datum.
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_decimal($value) and $value >= -90.0 and $value <= 90.0 and TRUE;
}
sub longitudeType {
# The longitude of the point. Decimal degrees, WGS84 datum.
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_decimal($value) and $value >= -180.0 and $value < 180.0 and TRUE;
}
sub degreesType {
# Used for bearing, heading, course. Units are decimal degrees, true (not magnetic).
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_decimal($value) and $value >= 0.0 and $value < 360.0 and TRUE;
}
sub fixType {
# Type of GPS fix. none means GPS had no fix. To signify "the fix info is unknown, leave out fixType entirely. pps = military signal used
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_string($value) and TRUE;
}
sub dgpsStationType {
# Represents a differential GPS station.
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_integer($value) and $value >= 0 and $value <= 1023 and TRUE;
}
##
##
The longitude of the point. Decimal degrees, WGS84 datum.
##
##
package ;
1;
sub {
#
my($class, $value) = @_;
return FALSE if _is_null($value);
return ($value) and || $value eq '' and TRUE;
return TRUE;
}
$value >= and
$value > and
$value <= and
$value < and
##
##
package Foo;
sub longitudeType {
# The longitude of the point. Decimal degrees, WGS84 datum.
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_decimal($value) and $value >= -180.0 and $value < 180.0 and TRUE;
}
sub fixType {
my($class, $value) = @_;
return FALSE if _is_null($value);
return xsd_string($value) and $value eq 'none' || $value eq '2d' || $value eq '3d' || $value eq 'dgps' || $value eq 'pps' and TRUE;
}
1;