File Coverage

blib/lib/AnyEvent/XMPP/Error/Exception.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::Exception;
2 1     1   1519 use AnyEvent::XMPP::Error;
  0            
  0            
3             use strict;
4             our @ISA = qw/AnyEvent::XMPP::Error/;
5              
6             =head1 NAME
7              
8             AnyEvent::XMPP::Error::Exception - Some exception was thrown somewhere
9              
10             Subclass of L
11              
12             =head2 METHODS
13              
14             =over 4
15              
16             =item B
17              
18             This returns the exception object that was thrown in C<$@>.
19              
20             =cut
21              
22             sub exception { $_[0]->{exception} }
23              
24             =item B
25              
26             This returns a string which describes the context in which this exception
27             was thrown
28              
29             =cut
30              
31             sub context { $_[0]->{context} }
32              
33             sub string {
34             my ($self) = @_;
35              
36             sprintf "exception in context '%s': %s",
37             $self->context, $self->exception
38             }
39              
40             =back
41              
42             =head1 AUTHOR
43              
44             Robin Redeker, C<< >>, JID: C<< >>
45              
46             =head1 COPYRIGHT & LICENSE
47              
48             Copyright 2007, 2008 Robin Redeker, all rights reserved.
49              
50             This program is free software; you can redistribute it and/or modify it
51             under the same terms as Perl itself.
52              
53             =cut
54              
55             1; # End of AnyEvent::XMPP