Initial Commit

database/perl/vendor/lib/Email/Sender/Success/Partial.pm

@@ -0,0 +1,59 @@
+package Email::Sender::Success::Partial;
+# ABSTRACT: a report of partial success when delivering
+$Email::Sender::Success::Partial::VERSION = '1.300035';
+use Moo;
+extends 'Email::Sender::Success';
+
+use MooX::Types::MooseLike::Base qw(InstanceOf);
+
+#pod =head1 DESCRIPTION
+#pod
+#pod These objects indicate that some delivery was accepted for some recipients and
+#pod not others.  The success object's C<failure> attribute will return a
+#pod L<Email::Sender::Failure::Multi> describing which parts of the delivery failed.
+#pod
+#pod =cut
+
+use Email::Sender::Failure::Multi;
+
+has failure => (
+  is  => 'ro',
+  isa => InstanceOf['Email::Sender::Failure::Multi'],
+  required => 1,
+);
+
+no Moo;
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Email::Sender::Success::Partial - a report of partial success when delivering
+
+=head1 VERSION
+
+version 1.300035
+
+=head1 DESCRIPTION
+
+These objects indicate that some delivery was accepted for some recipients and
+not others.  The success object's C<failure> attribute will return a
+L<Email::Sender::Failure::Multi> describing which parts of the delivery failed.
+
+=head1 AUTHOR
+
+Ricardo Signes <rjbs@semiotic.systems>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2020 by Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut