package ZeroMQ::Context;
use strict;
use ZeroMQ::Raw ();
sub new {
my ($class, $nthreads) = @_;
if (! defined $nthreads || $nthreads <= 0) {
$nthreads = 1;
}
bless {
_ctxt => ZeroMQ::Raw::zmq_init($nthreads),
}, $class;
}
sub ctxt {
$_[0]->{_ctxt};
}
sub socket {
return ZeroMQ::Socket->new(@_); # $_[0] should contain the context
}
sub term {
my $self = shift;
ZeroMQ::Raw::zmq_term($self->ctxt);
}
1;
__END__
=head1 NAME
ZeroMQ::Context - A 0MQ Context object
=head1 SYNOPSIS
use ZeroMQ qw/:all/;
my $cxt = ZeroMQ::Context->new;
my $sock = ZeroMQ::Socket->new($cxt, ZMQ_REP);
=head1 DESCRIPTION
Before opening any 0MQ Sockets, the caller must initialise
a 0MQ context.
=head1 METHODS
=head2 new($nthreads)
Creates a new C.
Optional arguments: The number of io threads to use. Defaults to 1.
=head2 term()
Terminates the current context. You *RARELY* need to call this yourself,
so don't do it unless you know what you're doing.
=head2 socket($type)
Short hand for ZeroMQ::Socket::new.
=head2 ctxt
Return the underlying ZeroMQ::Raw::Context object
=head1 CAVEATS
While in principle, C objects are thread-safe,
they are currently not cloned when a new Perl ithread is spawned.
The variables in the new thread that contained the context in
the parent thread will be a scalar reference to C
in the new thread. This could be fixed with better control
over the destructor calls.
=head1 SEE ALSO
L, L
L
L, L
=head1 AUTHOR
Daisuke Maki Edaisuke@endeworks.jpE
Steffen Mueller, Esmueller@cpan.orgE
=head1 COPYRIGHT AND LICENSE
The ZeroMQ module is
Copyright (C) 2010 by Daisuke Maki
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.0 or,
at your option, any later version of Perl 5 you may have available.
=cut