Help save net neutrality! Learn more.
Close

Diff of /SOAP-Transport-JABBER/trunk/lib/SOAP/Transport/JABBER.pm [r363] .. [r364]  Maximize  Restore

Switch to unified view

a/SOAP-Transport-JABBER/trunk/lib/SOAP/Transport/JABBER.pm b/SOAP-Transport-JABBER/trunk/lib/SOAP/Transport/JABBER.pm
...
...
11
package SOAP::Transport::JABBER;
11
package SOAP::Transport::JABBER;
12
12
13
use strict;
13
use strict;
14
use warnings;
14
use warnings;
15
15
16
our $VERSION = 0.712;
16
our $VERSION = 0.713;
17
17
18
use Net::Jabber 1.0021 qw(Client);
18
use Net::Jabber 1.0021 qw(Client);
19
use URI::Escape;
19
use URI::Escape;
20
use URI;
20
use URI;
21
21
...
...
49
# ^^^^^^   ^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^ ^^^^^^^^^^ ^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^
49
# ^^^^^^   ^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^ ^^^^^^^^^^ ^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^
50
50
51
# ======================================================================
51
# ======================================================================
52
52
53
package SOAP::Transport::JABBER::Query;
53
package SOAP::Transport::JABBER::Query;
54
our $VERSION = 0.712;
54
our $VERSION = 0.713;
55
sub new {
55
sub new {
56
    my $proto = shift;
56
    my $proto = shift;
57
    bless {} => ref($proto) || $proto;
57
    bless {} => ref($proto) || $proto;
58
}
58
}
59
59
...
...
68
}
68
}
69
69
70
# ======================================================================
70
# ======================================================================
71
71
72
package SOAP::Transport::JABBER::Client;
72
package SOAP::Transport::JABBER::Client;
73
our $VERSION = 0.712;
73
our $VERSION = 0.713;
74
use vars qw(@ISA);
74
use vars qw(@ISA);
75
@ISA = qw(SOAP::Client Net::Jabber::Client);
75
@ISA = qw(SOAP::Client Net::Jabber::Client);
76
76
77
sub DESTROY { SOAP::Trace::objects('()') }
77
sub DESTROY { SOAP::Trace::objects('()') }
78
78
...
...
176
}
176
}
177
177
178
# ======================================================================
178
# ======================================================================
179
179
180
package SOAP::Transport::JABBER::Server;
180
package SOAP::Transport::JABBER::Server;
181
our $VERSION = 0.712;
181
our $VERSION = 0.713;
182
use Carp ();
182
use Carp ();
183
use vars qw(@ISA $AUTOLOAD);
183
use vars qw(@ISA $AUTOLOAD);
184
@ISA = qw(SOAP::Server);
184
@ISA = qw(SOAP::Server);
185
185
186
sub new {
186
sub new {