PMG/SMTPPrinter.pm

   1 package PMG::SMTPPrinter;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub new {
   7     my ($class, $smtp) = @_;
   8
   9     my $self = { smtp => $smtp };
  10
  11     return bless $self;
  12 }
  13
  14 sub print {
  15     my ($self, $line) = @_;
  16
  17     $self->{smtp}->datasend ($line);
  18 }
  19
  20 1;