package Email::MIME::Kit::Assembler::Borg;
use Moose;

with 'Email::MIME::Kit::Role::Assembler';

use Email::MIME::Creator;

my $i = 1;

has number => (
  is       => 'ro',
  default  => sub { $i++ },
  init_arg => undef,
);

sub assemble {
  my ($self, $stash) = @_;
  
  my $num   = $self->number;
    my $email = Email::MIME->create(
    attributes => {
      content_type => 'text/plain',
    },
    header => [
      From    => 'drone@borg.cube',
      To      => 'earth@sector.000',
      Subject => 'You have no chance to survive, make your time.',
    ],
    body   => <<'END_OF_BODY',
We are borg.  You will be assimilated.  We will add your stash to our own.
END_OF_BODY
  );

  return $email;
}

no Moose;
1;