sub new {
  my $class = shift;
  $class = ref $class || $class;

  my $self = {};
  $self->{_smtp} = {};

  bless $self, $class;
}



sub smtp {
  my $self = shift;
  return $self->{_smtp}
}