File Coverage

blib/lib/AnyEvent/XMPP/Error/Presence.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


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