File Coverage

blib/lib/AnyEvent/XMPP/Error/Message.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package AnyEvent::XMPP::Error::Message;
2 1     1   1444 use strict;
  1         2  
  1         30  
3 1     1   4 no warnings;
  1         2  
  1         29  
4 1     1   33 use AnyEvent::XMPP::Error::Stanza;
  0            
  0            
5             our @ISA = qw/AnyEvent::XMPP::Error::Stanza/;
6              
7             =head1 NAME
8              
9             AnyEvent::XMPP::Error::Message - Message errors
10              
11             Subclass of L
12              
13             =cut
14              
15             sub string {
16             my ($self) = @_;
17              
18             sprintf "message error: %s/%s (type %s): %s",
19             $self->code || '',
20             $self->condition || '',
21             $self->type,
22             $self->text
23             }
24              
25              
26             =head1 AUTHOR
27              
28             Robin Redeker, C<< >>, JID: C<< >>
29              
30             =head1 COPYRIGHT & LICENSE
31              
32             Copyright 2007, 2008 Robin Redeker, all rights reserved.
33              
34             This program is free software; you can redistribute it and/or modify it
35             under the same terms as Perl itself.
36              
37             =cut
38              
39             1; # End of AnyEvent::XMPP