File Coverage

blib/lib/Net/Jabber/JID.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             ##############################################################################
2             #
3             # This library is free software; you can redistribute it and/or
4             # modify it under the terms of the GNU Library General Public
5             # License as published by the Free Software Foundation; either
6             # version 2 of the License, or (at your option) any later version.
7             #
8             # This library is distributed in the hope that it will be useful,
9             # but WITHOUT ANY WARRANTY; without even the implied warranty of
10             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11             # Library General Public License for more details.
12             #
13             # You should have received a copy of the GNU Library General Public
14             # License along with this library; if not, write to the
15             # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
16             # Boston, MA 02111-1307, USA.
17             #
18             # Copyright (C) 1998-2004 Jabber Software Foundation http://jabber.org/
19             #
20             ##############################################################################
21              
22             package Net::Jabber::JID;
23              
24             =head1 NAME
25              
26             Net::Jabber::JID - Jabber JID Module
27              
28             =head1 DESCRIPTION
29              
30             Net::Jabber::JID inherits all of its methods from Net::XMPP::JID.
31              
32             =head1 AUTHOR
33              
34             Ryan Eatmon
35              
36             =head1 COPYRIGHT
37              
38             This module is free software; you can redistribute it and/or modify
39             it under the same terms as Perl itself.
40              
41             =cut
42              
43             require 5.003;
44 49     49   280 use strict;
  49         114  
  49         1660  
45 49     49   253 use Carp;
  49         81  
  49         2866  
46              
47 49     49   262 use Net::XMPP::JID;
  49         94  
  49         1172  
48 49     49   238 use base qw( Net::XMPP::JID );
  49         81  
  49         3674  
49              
50 49     49   247 use vars qw($VERSION);
  49         102  
  49         2543  
51              
52             $VERSION = "2.0";
53              
54             1;