File Coverage

blib/lib/Protocol/XMPP/User.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 6 50.0
pod 0 3 0.0
total 12 23 52.1


line stmt bran cond sub pod time code
1             package Protocol::XMPP::User;
2              
3 1     1   270366 use strict;
  1         3  
  1         67  
4 1     1   7 use warnings;
  1         3  
  1         98  
5              
6             our $VERSION = '0.007'; ## VERSION
7              
8             =head1 NAME
9              
10             Protocol::XMPP::User - user-related functionality
11              
12             =cut
13              
14 1     1   543 use Protocol::XMPP::Roster;
  1         4  
  1         137  
15              
16             sub new {
17 0     0 0   my $class = shift;
18 0           my $self = bless { }, $class;
19 0           return $self;
20             }
21              
22       0 0   sub name {
23              
24             }
25              
26             sub roster {
27 0     0 0   my $self = shift;
28 0           return Protocol::XMPP::Roster->new($self);
29             }
30              
31             1;
32              
33             __END__