fix(mac): add robust diagnostic logging for Perl adapter to debug execution flow

Author: jayfunc

Mac/CarpeCast-Swift/MediaManager.swift

@@ -91,16 +91,20 @@ class MediaManager: ObservableObject {
 
                 let data = pipe.fileHandleForReading.readDataToEndOfFile()
                 if let output = String(data: data, encoding: .utf8)?.trimmingCharacters(in: .whitespacesAndNewlines) {
+                    try? "Perl output: \(output)".write(toFile: "/tmp/perl_output.log", atomically: true, encoding: .utf8)
                     if output == "nil" || output.isEmpty {
                         completion(nil)
-                    } else {
+                    } else if output.components(separatedBy: "|||").count >= 6 {
                         completion(output)
+                    } else {
+                        // Probably a perl error
+                        completion(nil)
                     }
                 } else {
                     completion(nil)
                 }
             } catch {
-                print("Failed to run mac_nowplaying: \(error)")
+                try? "Process error: \(error)".write(toFile: "/tmp/perl_output.log", atomically: true, encoding: .utf8)
                 completion(nil)
             }
         }

Mac/CarpeCast-Swift/NowPlayingHelper.swift

@@ -17,17 +17,22 @@ public func run_helper() {
 
     let MRMediaRemoteGetNowPlayingInfo = unsafeBitCast(pointer, to: MRMediaRemoteGetNowPlayingInfoFunction.self)
 
+    try? "Perl injected and MRMediaRemoteGetNowPlayingInfo loaded".write(toFile: "/tmp/perl_debug.log", atomically: true, encoding: .utf8)
+
     let group = DispatchGroup()
     group.enter()
 
     MRMediaRemoteGetNowPlayingInfo(DispatchQueue.main) { infoOpt in
         defer { group.leave() }
 
         guard let info = infoOpt else {
+            try? "infoOpt is nil".write(toFile: "/tmp/perl_debug.log", atomically: true, encoding: .utf8)
             print("nil")
             return
         }
 
+        try? "infoOpt received: \(info.keys)".write(toFile: "/tmp/perl_debug.log", atomically: true, encoding: .utf8)
+        
         let title = (info["kMRMediaRemoteNowPlayingInfoTitle"] as? String) ?? ""
         let artist = (info["kMRMediaRemoteNowPlayingInfoArtist"] as? String) ?? ""
         let album = (info["kMRMediaRemoteNowPlayingInfoAlbum"] as? String) ?? ""