/usr/share/perl5/Email/Sender/Failure.pm is in libemail-sender-perl 0.110001-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | package Email::Sender::Failure;
BEGIN {
$Email::Sender::Failure::VERSION = '0.110001';
}
use Moose;
extends 'Throwable::Error';
# ABSTRACT: a report of failure from an email sending transport
has code => (
is => 'ro',
);
has _recipients => (
is => 'rw',
isa => 'ArrayRef',
auto_deref => 1,
init_arg => 'recipients',
);
sub recipients { shift->_recipients }
sub BUILD {
my ($self) = @_;
confess("message must contain non-space characters")
unless $self->message =~ /\S/;
}
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
no Moose;
1;
__END__
=pod
=head1 NAME
Email::Sender::Failure - a report of failure from an email sending transport
=head1 VERSION
version 0.110001
=head1 ATTRIBUTES
=head2 message
This method returns the failure message, which should describe the failure.
Failures stringify to this message.
=head2 code
This returns the numeric code of the failure, if any. This is mostly useful
for network protocol transports like SMTP. This may be undefined.
=head2 recipients
This returns a list (or, in scalar context, an arrayref) of addresses to which
the email could not be sent.
=head1 METHODS
=head2 throw
This method can be used to instantiate and throw an Email::Sender::Failure
object at once.
Email::Sender::Failure->throw(\%arg);
Instead of a hashref of args, you can pass a single string argument which will
be used as the C<message> of the new failure.
=head1 SEE ALSO
=over
=item * L<Email::Sender::Permanent>
=item * L<Email::Sender::Temporary>
=item * L<Email::Sender::Multi>
=back
=head1 AUTHOR
Ricardo Signes <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 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
|