package Fripost::Schema::Mail;

=head1 NAME

Mail.pm - Send clear, signed or encrypted e-mails.

=head1 DESCRIPTION

This module is adds GnuPG signing on top of MIME::Lite. Most of the
code comes from Mail::GnuPG.

=cut

use 5.010_000;
use strict;
use warnings;
use utf8;

use MIME::Lite;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    my %msg = @_;

    $msg{Encoding} //= 'quoted-printable';
    $msg{Charset}  //= 'utf-8';

    $self->{_msg} = MIME::Lite->new(@_);
    return $self;
}

sub send {
    my $self = shift;
    print STDERR $self->{_msg}->as_string;
    $self->{_msg}->send;
}

=back

=head1 AUTHOR

Guilhem Moulin C<< <guilhem at fripost.org> >>

=head1 COPYRIGHT

Copyright 2013 Guilhem Moulin.

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it
under the same terms as perl itself.

=cut

1;

__END__