1package Protocol::XMPP::User;
2$Protocol::XMPP::User::VERSION = '0.006';
3use strict;
4use warnings;
5
6=head1 NAME
7
8Protocol::XMPP::User - user-related functionality
9
10=head1 VERSION
11
12Version 0.006
13
14=cut
15
16use Protocol::XMPP::Roster;
17
18sub new {
19	my $class = shift;
20	my $self = bless { }, $class;
21	return $self;
22}
23
24sub name {
25
26}
27
28sub roster {
29	my $self = shift;
30	return Protocol::XMPP::Roster->new($self);
31}
32
331;
34
35__END__
36
37=head1 AUTHOR
38
39Tom Molesworth <cpan@entitymodel.com>
40
41=head1 LICENSE
42
43Copyright Tom Molesworth 2010-2014. Licensed under the same terms as Perl itself.
44