use Test::More tests => 42; use_ok qw(SOAP::Lite::Deserializer::XMLSchema2001); is SOAP::Lite::Deserializer::XMLSchema2001->anyTypeValue(), 'anyType', 'anyTypeValue'; is SOAP::Lite::Deserializer::XMLSchema2001->as_boolean('false'), 0, 'as_boolean("false")'; is ord SOAP::Lite::Deserializer::XMLSchema2001->as_hexBinary('FF'), 255, 'as_hex(FF)'; is ord SOAP::Lite::Deserializer::XMLSchema2001->as_hexBinary('65'), 101, 'as_hex(65)'; is SOAP::Lite::Deserializer::XMLSchema2001->as_hexBinary('4142'), 'AB', 'as_hex(4142)'; #is SOAP::Lite::Deserializer::XMLSchema2001->as_ur_type('4242'), # '4242', 'as_ur_type(4242)'; is SOAP::Lite::Deserializer::XMLSchema2001->as_undef('true'), '1', 'as_undef("true")'; is SOAP::Lite::Deserializer::XMLSchema2001->as_undef('false'), '0', 'as_undef("false")'; for (qw( string anyType anySimpleType float double decimal dateTime timePeriod gMonth gYearMonth gYear century gMonthDay gDay duration recurringDuration language integer nonPositiveInteger negativeInteger long int short byte nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte positiveInteger date time dateTime QName) ) { no strict qw(refs); my $method = "as_$_"; is SOAP::Lite::Deserializer::XMLSchema2001->$method('something nice'), 'something nice', "$method('something nice')"; }