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