source: perl/modules/Jabber/lib/Net/Jabber/IQ.pm @ 702aee7

barnowl_perlaimdebianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 702aee7 was c2bed55, checked in by Nelson Elhage <nelhage@mit.edu>, 17 years ago
Moving Net::Jabber into Jabber.par
  • Property mode set to 100644
File size: 2.3 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::IQ;
23
24=head1 NAME
25
26Net::Jabber::IQ - Jabber Info/Query Library
27
28=head1 DESCRIPTION
29
30  Net::Jabber::IQ inherits all of its methods from Net::XMPP::IQ.
31
32=head1 AUTHOR
33
34Ryan Eatmon
35
36=head1 COPYRIGHT
37
38This module is free software; you can redistribute it and/or modify
39it under the same terms as Perl itself.
40
41=cut
42
43require 5.003;
44use strict;
45use Carp;
46use Net::XMPP::IQ;
47use base qw( Net::XMPP::IQ );
48
49use vars qw( $VERSION );
50
51$VERSION = "2.0";
52
53sub GetQuery     { my $self = shift; $self->GetChild(@_);     }
54sub DefinedQuery { my $self = shift; $self->DefinedChild(@_); }
55sub NewQuery     { my $self = shift; $self->RemoveFirstChild(); $self->NewFirstChild(@_);     }
56sub AddQuery     { my $self = shift; $self->AddChild(@_);     } 
57sub RemoveQuery  { my $self = shift; $self->RemoveFirstChild(@_);  }
58
59sub GetX     { my $self = shift; $self->GetChild(@_);     }
60sub DefinedX { my $self = shift; $self->DefinedChild(@_); }
61sub NewX     { my $self = shift; $self->NewChild(@_);     }
62sub AddX     { my $self = shift; $self->AddChild(@_);     } 
63sub RemoveX  { my $self = shift; $self->RemoveChild(@_);  }
64
65sub _new_jid    { my $self = shift; return Net::Jabber::JID->new(@_);    }
66sub _new_packet { my $self = shift; return Net::Jabber::Stanza->new(@_); }
67sub _iq         { my $self = shift; return Net::Jabber::IQ->new(@_);     }
68
691;
Note: See TracBrowser for help on using the repository browser.