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.
#	User	Rev	Content
1	elmex	1.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