+sub location_types {
+ (
+ '' => '(None)',
+ 'APT' => 'Apartment',
+ 'BLDG' => 'Building',
+ 'FLR' => 'Floor',
+ 'LOT' => 'Lot',
+ 'RM' => 'Room',
+ 'SLIP' => 'Slip',
+ 'SUIT' => 'Suite',
+ 'TRLR' => 'Trailer',
+ 'UNIT' => 'Unit',
+ 'WING' => 'Wing',
+ );
+}
+
+sub location_types_parse {
+ my $class = shift;
+ my %t = $class->location_types;
+ delete $t{''};
+ (
+ (map { $_ => $_ } keys %t),
+ (reverse %t),
+ 'STE' => 'SUIT', #USPS
+ );
+}
+