1 files changed, 50 insertions, 0 deletions
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";
+
+?>