Test/perl/ErrorChannel.pm

   1 use strict;
   2
   3 package ErrorChannel;
   4
   5 sub new {
   6         my $self = {};
   7         bless $self, shift;
   8         return $self;
   9 }
  10
  11 sub dberror {
  12         my $self = shift;
  13         print shift; print "\n";
  14 }
  15
  16 1;