From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 17:01:31 +0200
Subject: Adding debian version 2.4.57-2.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 debian/perl-framework/t/htdocs/php/cfunctions.php | 50 +++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 debian/perl-framework/t/htdocs/php/cfunctions.php

(limited to 'debian/perl-framework/t/htdocs/php/cfunctions.php')

diff --git a/debian/perl-framework/t/htdocs/php/cfunctions.php b/debian/perl-framework/t/htdocs/php/cfunctions.php
new file mode 100644
index 0000000..3655cd6
--- /dev/null
+++ b/debian/perl-framework/t/htdocs/php/cfunctions.php
@@ -0,0 +1,50 @@
+<?php
+
+function print_stuff($stuff)
+{
+	print $stuff;
+}
+
+
+function still_working()
+{
+	return "I'm still alive";
+}
+
+function dafna()
+{
+	static $foo = 0;
+	
+	print "Dafna!\n";
+	print call_user_func("still_working")."\n";
+	$foo++;
+	return (string) $foo;
+}
+
+
+class dafna_class {
+	function dafna_class() {
+		$this->myname = "Dafna";
+	}
+	function GetMyName() {
+		return $this->myname;
+	}
+	function SetMyName($name) {
+		$this->myname = $name;
+	}
+};
+
+for ($i=0; $i<200; $i++):
+	print "$i\n";
+	call_user_func("dafna");
+	call_user_func("print_stuff","Hey there!!\n");
+	print "$i\n";
+endfor;
+
+
+$dafna = new dafna_class();
+
+print $name=call_user_func(array($dafna, "GetMyName"));
+print "\n";
+
+?>
-- 
cgit v1.2.3