X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=Test%2Fperl%2FErrorChannel.pm;fp=Test%2Fperl%2FErrorChannel.pm;h=0e89ce1f0450c2e6ca2b9bc0af38ddf699d9f29c;hb=5349a1ed016ae603b39d73747eccc6792707db1c;hp=0000000000000000000000000000000000000000;hpb=2a0cbd885790174fa0f212e6661b30362650a42c;p=kivitendo-erp.git

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