From 4ab734e48d6200134c42d8db4e183b9462de1e9d Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 31 May 2023 22:52:11 +0200
Subject: [PATCH] lib/php/out/perl.php

---
 lib/php/out/perl.php | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lib/php/out/perl.php

diff --git a/lib/php/out/perl.php b/lib/php/out/perl.php
new file mode 100644
index 00000000..6613bed7
--- /dev/null
+++ b/lib/php/out/perl.php
@@ -0,0 +1,19 @@
+<?php
+if (!class_exists('out')) return;
+return [
+  'enclose' => (self::p('enclose') === '0' ? [] : [
+     '@VAR = ('.NB_EOL
+    ,');'.NB_EOL
+  ]),
+  'eol' => self::p('eol',NB_EOL),
+  'row' => function(&$o,&$r) {
+    return preg_replace(array(
+      '/^array\s*\(/',
+      '/\)$/',
+    ),array(
+      '{',
+      "},",
+    ),var_export($r,true));
+  }
+];
+?>
-- 
2.47.3