epic-s6g

[kivitendo-erp.git] / Test / perl / ErrorChannel.pm

diff --git a/Test/perl/ErrorChannel.pm b/Test/perl/ErrorChannel.pm
new file mode 100644 (file)
index 0000000..0e89ce1
--- /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