X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/2a0cbd885790174fa0f212e6661b30362650a42c..5349a1ed016ae603b39d73747eccc6792707db1c:/Test/perl/ErrorChannel.pm

diff --git a/Test/perl/ErrorChannel.pm b/Test/perl/ErrorChannel.pm
new file mode 100644
index 000000000..0e89ce1f0
--- /dev/null
+++ b/Test/perl/ErrorChannel.pm
@@ -0,0 +1,16 @@
+use strict;
+
+package ErrorChannel;
+
+sub new {
+	my $self = {};
+	bless $self, shift;
+	return $self;
+}
+
+sub dberror {
+	my $self = shift;
+	print shift; print "\n";
+}
+
+1;
\ No newline at end of file