File Coverage

blib/lib/Net/Lite/XMPP.pm

Criterion	Covered	Total	%
statement	21	38	55.2
branch	0	2	0.0
condition			n/a
subroutine	8	10	80.0
pod	0	4	0.0
total	29	54	53.7

package Net::Lite::XMPP;


use 5.006000;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Net::Lite::XMPP ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

			) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

		);

our $VERSION = '0.02';
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
BEGIN {
};

sub new($$) {
	my $class=shift;
	my $self={};
	bless $self,$class;
	return $self;
};
sub open($$$) {
	my ($self,$host,$port)=@_;
	my ($data);
	if (!(defined($port))) {$port=5223};
	use IO::Socket::SSL;
	my $Socket = new IO::Socket::SSL("$host:$port");
	$self->{'Socket'}=$Socket;
	# Send header handshake:
	print $Socket q||;
	print "Hello sent...\n";
	# we expect sth like :
	#
	#
	# xmlns:stream='http://etherx.jabber.org/streams'
	# id='3694886828' from='localhost'>
	my $result=$Socket->pending();
	print "Got $result bytes..\n";
	sleep 1;
	my $result=$Socket->pending();
	print "Got $result bytes..\n";


	return defined($Socket);
};

sub login {
	my ($self,$user,$pass)=@_;
	my $Socket=$self->{'Socket'};
	print $Socket q|


	mremond
	azerty
	TelnetClient
	|;
	# we expect:
	#

};

sub trivialm {
	return 1;
};

1;
__END__