XMPP2/Error/Message.pm

package Net::XMPP2::Error::Message;
use Net::XMPP2::Error::Stanza;
our @ISA = qw/Net::XMPP2::Error::Stanza/;

=head1 NAME

Net::XMPP2::Error::Message - Message errors

Subclass of L<Net::XMPP2::Error::Stanza>

=cut

sub string {
   my ($self) = @_;

   sprintf "message error: %s/%s (type %s): %s",
      $self->code || '',
      $self->condition || '',
      $self->type,
      $self->text
}


=head1 AUTHOR

Robin Redeker, C<< <elmex at ta-sa.org> >>, JID: C<< <elmex at jabber.org> >>

=head1 COPYRIGHT & LICENSE

Copyright 2007 Robin Redeker, all rights reserved.

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

=cut

1; # End of Net::XMPP2
Revision:	1.1
Committed:	Thu Jul 5 17:33:59 2007 UTC (19 years, 2 months ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	fixed some broken links in the documentation and moved errors to seperate files.
#	Content
1	package Net::XMPP2::Error::Message;
2	use Net::XMPP2::Error::Stanza;
3	our @ISA = qw/Net::XMPP2::Error::Stanza/;
4
5	=head1 NAME
6
7	Net::XMPP2::Error::Message - Message errors
8
9	Subclass of L<Net::XMPP2::Error::Stanza>
10
11	=cut
12
13	sub string {
14	my ($self) = @_;
15
16	sprintf "message error: %s/%s (type %s): %s",
17	$self->code \|\| '',
18	$self->condition \|\| '',
19	$self->type,
20	$self->text
21	}
22
23
24	=head1 AUTHOR
25
26	Robin Redeker, C<< <elmex at ta-sa.org> >>, JID: C<< <elmex at jabber.org> >>
27
28	=head1 COPYRIGHT & LICENSE
29
30	Copyright 2007 Robin Redeker, all rights reserved.
31
32	This program is free software; you can redistribute it and/or modify it
33	under the same terms as Perl itself.
34
35	=cut
36
37	1; # End of Net::XMPP2