source: perl/modules/Jabber/lib/Net/Jabber/Presence.pm @ 4485285

Last change on this file since 4485285 was 7869e48, checked in by Jason Gross <jgross@mit.edu>, 11 years ago
Remove trailing whitespace This commit was made with the command sequence for i in $(git ls-files | tr '\n' ' '); do echo $i; sed -i s'/\s\+$//g' "$(readlink -f $i)"; done
  • Property mode set to 100644
File size: 2.0 KB
Line 
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
22package Net::Jabber::Presence;
23
24=head1 NAME
25
26Net::Jabber::Presence - Jabber Presence Module
27
28=head1 DESCRIPTION
29
30  Net::Jabber::Presence inherits all of its methods from
31  Net::XMPP::Presence.
32
33=head1 AUTHOR
34
35Ryan Eatmon
36
37=head1 COPYRIGHT
38
39This module is free software; you can redistribute it and/or modify
40it under the same terms as Perl itself.
41
42=cut
43
44require 5.003;
45use strict;
46use Carp;
47use Net::XMPP::Presence;
48use base qw( Net::XMPP::Presence );
49
50use vars qw( $VERSION );
51
52$VERSION = "2.0";
53
54sub GetX     { my $self = shift; $self->GetChild(@_);    }
55sub DefinedX { my $self = shift; $self->DefinedChild(@_); }
56sub NewX     { my $self = shift; $self->NewChild(@_);    }
57sub AddX     { my $self = shift; $self->AddChild(@_);    }
58sub RemoveX  { my $self = shift; $self->RemoveChild(@_); }
59
60sub _new_jid    { my $self = shift; return Net::Jabber::JID->new(@_);      }
61sub _new_packet { my $self = shift; return Net::Jabber::Stanza->new(@_);   }
62sub _presence   { my $self = shift; return Net::Jabber::Presence->new(@_); }
63
641;
Note: See TracBrowser for help on using the repository browser.