perl: Move database functions up and lookup functions down

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

src/perl/Location/Location.xs

@@ -56,6 +56,22 @@ init(file)
 	OUTPUT:
 		RETVAL
 
+/*
+ * Database functions
+ */
+const char*
+get_vendor(db)
+	struct loc_database* db;
+
+	CODE:
+		// Get vendor
+		RETVAL = loc_database_get_vendor(db);
+	OUTPUT:
+		RETVAL
+
+/*
+ * Lookup functions
+ */
 char*
 lookup_country_code(db, address)
 	struct loc_database* db;
@@ -81,18 +97,6 @@ lookup_country_code(db, address)
 	OUTPUT:
 		RETVAL
 
-
-
-const char*
-get_vendor(db)
-	struct loc_database* db;
-
-	CODE:
-		// Get vendor
-		RETVAL = loc_database_get_vendor(db);
-	OUTPUT:
-		RETVAL
-
 void
 DESTROY(db)
 	struct loc_database* db;