view release on metacpan or search on metacpan
sv_release_COW|||
sv_release_IVX|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.006000||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.006000||p
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
sv_ref||5.015004|
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvunweaken|||
sv_rvweaken||5.006000|
sv_set_undef|||
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
view release on metacpan or search on metacpan
SvROK_off|5.003007|5.003007|
SvROK_on|5.003007|5.003007|
SvRV|5.003007|5.003007|
SvRV_const|5.010001||Viu
SvRV_set|5.009003|5.003007|p
sv_rvunweaken|5.027004|5.027004|
sv_rvweaken|5.006000|5.006000|
SvRVx|5.003007||Viu
SvRX|5.009005|5.003007|p
SvRXOK|5.009005|5.003007|p
SV_SAVED_COPY|5.009005||Viu
SvSCREAM|5.003007||Viu
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/NexusRelease.pm view on Meta::CPAN
use Moose;
with 'Dist::Zilla::Role::Releaser';
use Log::Any qw($log);
use Moose::Util::TypeConstraints;
use Scalar::Util qw(weaken);
use Carp;
use namespace::autoclean;
{
lib/Dist/Zilla/Plugin/NexusRelease.pm view on Meta::CPAN
version => $self->version,
}
);
$uploader->{'Dist::Zilla'}{plugin} = $self;
weaken $uploader->{'Dist::Zilla'}{plugin};
return $uploader;
}
);
view release on metacpan or search on metacpan
t/02-skip.t view on Meta::CPAN
[ GatherDir => ],
[ 'Test::CleanNamespaces' => { skip => [ '::Dirty$', '::Unclean$' ] } ],
),
path(qw(source lib Foo.pm)) => "package Foo;\n1;\n",
path(qw(source lib Foo Dirty.pm)) => "package Foo::Dirty;\nuse Scalar::Util 'refaddr';\n1;\n",
path(qw(source lib Foo Unclean.pm)) => "package Foo::Unclean;\nuse Scalar::Util 'weaken';\n1;\n",
},
},
);
$tzil->chrome->logger->set_debug(1);
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/UploadToCPAN/WWWPAUSESimple.pm view on Meta::CPAN
use Moose;
with qw(Dist::Zilla::Role::BeforeRelease Dist::Zilla::Role::Releaser);
use File::Spec;
use Moose::Util::TypeConstraints;
use Scalar::Util qw(weaken);
use Try::Tiny;
use namespace::autoclean;
has credentials_stash => (
view release on metacpan or search on metacpan
lib/Dist/Zilla/PluginBundle/Author/KENTNL.pm view on Meta::CPAN
for my $attr ( $self->meta->get_all_attributes ) {
next unless my $arg = $attr->init_arg;
$init_args{$arg} = 1;
}
# A weakened warn-only filter-supporting StrictConstructor
for my $key ( keys %{$config} ) {
next if exists $init_args{$key};
next if $key =~ /\A-remove/msx;
next if $key =~ /\A[^.]+[.][^.]/msx;
require Carp;
view release on metacpan or search on metacpan
lib/Dist/Zilla/Starter.pm view on Meta::CPAN
L<ExtUtils::MakeMaker>, with the additional goal of being more modern and
easier to customize and add features to. Unfortunately this proved to be a
lofty goal, as due to widespread use it succumbed to the same stagnation as
ExtUtils::MakeMaker; it too has become extremely complex and obtuse, is no
longer driven to evolve by its primary author, and must maintain backcompat
religiously. This has weakened most of its benefits considerably, as
ExtUtils::MakeMaker still remains more compatible with ancient end-user Perls,
but Module::Build is still used by some who prefer its interface over
ExtUtils::MakeMaker, or who have complicated compilation requirements that are
easier to customize in Module::Build.
view release on metacpan or search on metacpan
lib/Dist/Zilla/Role/PluginBundle/Zilla.pm view on Meta::CPAN
use Moose::Role;
with 'Dist::Zilla::Role::PluginBundle';
use List::Util qw(first);
use Moose::Util::TypeConstraints qw(class_type);
use Scalar::Util qw(weaken);
use namespace::autoclean;
has name => (
is => 'ro',
lib/Dist/Zilla/Role/PluginBundle/Zilla.pm view on Meta::CPAN
my @sections = $section->sequence->sections;
my ($root_section) = first { $_->name eq q{_} } @sections;
my $zilla = $root_section->zilla;
$zilla{$name} = $zilla;
weaken( $zilla{$name} );
return $class->$orig( $name, $arg, $section );
};
sub _build_zilla {
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/UploadToCPAN.pm view on Meta::CPAN
use Dist::Zilla::Pragmas;
use File::Spec;
use Moose::Util::TypeConstraints;
use Scalar::Util qw(weaken);
use Dist::Zilla::Util;
use Try::Tiny;
use namespace::autoclean;
lib/Dist/Zilla/Plugin/UploadToCPAN.pm view on Meta::CPAN
($self->retry_delay
? (retry_delay => $self->retry_delay) : ()),
});
$uploader->{'Dist::Zilla'}{plugin} = $self;
weaken $uploader->{'Dist::Zilla'}{plugin};
return $uploader;
}
);
view release on metacpan or search on metacpan
lib/Data/Object/ClassHas.pm view on Meta::CPAN
mechanism for class attributes. This ability is not supported by the L<Moo>
object superclass.
=item wkr|weak_ref
# weaken ref
wkr => 1
weak_ref => 1
The C<weak_ref> directive is used to denote if the attribute's value should be
weakened. See the L<Moo> documentation for more details.
=item wrt|writer
# attribute writer
view release on metacpan or search on metacpan
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub openhandle($) ;
sub readonly($) ;
sub refaddr($) ;
sub reftype($) ;
sub tainted($) ;
sub unweaken($) ;
sub weaken($) ;
}
package Socket {
sub AF_802() ;
sub AF_AAL() ;
sub AF_CCITT() ;
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
}
package Specio::OO {
sub all(&@) ;
sub dclone($) ;
sub perlstring;
sub weaken($) ;
}
package Specio::PartialDump {
sub blessed($) ;
sub looks_like_number($) ;
sub reftype($) ;
App-Domain-1.230280/_Deparsed_XSubs.pm view on Meta::CPAN
sub is_weak($) ;
sub refaddr($) ;
sub reftype($) ;
sub trim($) ;
sub true() ;
sub unweaken($) ;
sub weaken($) ;
}
package bytes {
sub chr(_) ;
sub index($$;$) ;
sub length(_) ;
view release on metacpan or search on metacpan
lib/Doorman/PlackMiddleware.pm view on Meta::CPAN
use Doorman;
our $VERSION = $Doorman::VERSION;
our $AUTHORITY = $Doorman::AUTHORITY;
use Doorman::Scope;
use Scalar::Util qw(weaken);
sub prepare_app {
my $self = shift;
$self->scope('users') unless $self->scope;
return $self;
lib/Doorman/PlackMiddleware.pm view on Meta::CPAN
sub prepare_call {
my ($self, $env) = @_;
my $request = Plack::Request->new($env);
$self->{env} = $env;
weaken($self->{env});
if (!$self->root_url) {
my $root_uri = $request->uri->clone;
$root_uri->path("");
$root_uri->query(undef);
view release on metacpan or search on metacpan
confess("unknown request $q");
}
}
}
}
Dot->import(iautoload => [[qw/Scalar::Util weaken/],
[qw/Carp confess/]]);
sub add {
my $o = shift;
while (@_) {
my ($k, $v) = splice @_, 0, 2;
$o->{$k} = $v;
}
}
sub mod {
my $o = shift;
weaken($o);
add($o,
weaken => \&weaken,
add => sub {
unshift @_, $o;
goto &add;
},
del => sub {
$obj->{method0}(...);
};
$obj;
}
You must say C<weaken(my $obj = shift)> when this happens, and C<weaken> (from
C<Scalar::Util>) is the only thing that's necessary (sometimes) to use C<Dot>,
everything else is optional, you don't even need C<Dot> itself.
=head2 Inheritance
C<Dot::mod> is a C<Dot> class, we call it C<Dot> for short, it's convenient to always inherit from
it since it provides three methods that're used frequently:
=over 4
=item weaken
Not a method exactly, but as explained previously, C<weaken> is the only thing that's sometimes
necessary to use C<Dot>, thus it's important, so instead of loading
C<Scalar::Util> everywhere, C<Dot> exports it and when you have an object
that's been modified by C<Dot> you can just call C<weaken> using C<< $obj->{weaken}($obj) >>.
=item add
Add key-value pairs to this object so that they could be accessed publicly.
It just does hash assignment and entirely for readability purpose:
view release on metacpan or search on metacpan
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
t/01-testowl.t view on Meta::CPAN
<rdfs:comment rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
></rdfs:comment>
<efo:EFO_URI rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
>http://www.ebi.ac.uk/efo/EFO_0001438</efo:EFO_URI>
<efo:example_of_usage rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
>For example, the disposition of vegetables to decay when not refrigerated, the disposition of blood to coagulate, the disposition of a patient with a weakened immune system to contract disease.</efo:example_of_usage>
<efo:definition rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
>A disposition is an entity that essentially causes a specific process or transformation in an entity in which it inheres, under specific circumstances and in conjunction with the laws of nature. For example, the disposition of vegetables to deca...
<efo:ArrayExpress_label rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
>disease property</efo:ArrayExpress_label>
<efo:branch_class rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
>true</efo:branch_class>
<rdfs:label rdf:datatype="http://www.w3.org/2001/XMLSchema#string"
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
lib/EO/Data.pm view on Meta::CPAN
use strict;
use warnings;
use EO;
use NEXT;
use Scalar::Util qw(weaken);
use EO::Hash;
#use EO::Locale;
our $VERSION = 0.96;
our @ISA = qw(EO);
lib/EO/Data.pm view on Meta::CPAN
if (!UNIVERSAL::isa($storage, 'EO::Storage')) {
throw EO::Error::InvalidParameter
text => 'storage must be an EO::Storage object';
}
$self->{e_data_storage}->{$storage} = $storage;
weaken($self->{e_data_storage}->{$storage});
return $self;
}
sub storage {
my $self = shift;
lib/EO/Data.pm view on Meta::CPAN
if (!UNIVERSAL::isa($storage, 'EO::Storage')) {
throw EO::Error::InvalidParameter
text => 'storage must be an EO::Storage object';
}
$self->{e_data_storage} = { $storage => $storage };
weaken( $self->{e_data_storage}->{ $storage } );
return $self;
}
return values %{$self->{e_data_storage}};
}
view release on metacpan or search on metacpan
t/dracula.DOS.txt view on Meta::CPAN
at once. Later on in the day she told me the cause. She is grieved to
lose Lucy as her very own, but she is rejoiced that she is soon to have
some one to protect her. Poor dear, sweet lady! She confided to me
that she has got her death warrant. She has not told Lucy, and made me
promise secrecy. Her doctor told her that within a few months, at
most, she must die, for her heart is weakening. At any time, even now,
a sudden shock would be almost sure to kill her. Ah, we were wise to
keep from her the affair of the dreadful night of Lucy's sleep-walking.
17 August.--No diary for two whole days. I have not had the heart to
t/dracula.DOS.txt view on Meta::CPAN
the operation. As the transfusion went on, something like life seemed
to come back to poor Lucy's cheeks, and through Arthur's growing
pallor the joy of his face seemed absolutely to shine. After a bit I
began to grow anxious, for the loss of blood was telling on Arthur,
strong man as he was. It gave me an idea of what a terrible strain
Lucy's system must have undergone that what weakened Arthur only
partially restored her.
But the Professor's face was set, and he stood watch in hand, and with
his eyes fixed now on the patient and now on Arthur. I could hear my
own heart beat. Presently, he said in a soft voice, "Do not stir an
instant. It is enough. You attend him. I will look to her."
When all was over, I could see how much Arthur was weakened. I
dressed the wound and took his arm to bring him away, when Van Helsing
spoke without turning round, the man seems to have eyes in the back of
his head, "The brave lover, I think, deserve another kiss, which he
shall have presently." And as he had now finished his operation, he
adjusted the pillow to the patient's head. As he did so the narrow
t/dracula.DOS.txt view on Meta::CPAN
which meant so much. Without a word he went and locked the door, and
then began to set out on the little table the instruments for yet
another operation of transfusion of blood. I had long ago recognized
the necessity, and begun to take off my coat, but he stopped me with a
warning hand. "No!" he said. "Today you must operate. I shall
provide. You are weakened already." As he spoke he took off his coat
and rolled up his shirtsleeve.
Again the operation. Again the narcotic. Again some return of colour
to the ashy cheeks, and the regular breathing of healthy sleep. This
time I watched whilst Van Helsing recruited himself and rested.
t/dracula.DOS.txt view on Meta::CPAN
"How is your dear mother getting on? I wish I could run up
to town for a day or two to see you, dear, but I dare not
go yet, with so much on my shoulders, and Jonathan wants
looking after still. He is beginning to put some flesh on
his bones again, but he was terribly weakened by the long
illness. Even now he sometimes starts out of his sleep in
a sudden way and awakes all trembling until I can coax him
back to his usual placidity. However, thank God, these
occasions grow less frequent as the days go on, and they
will in time pass away altogether, I trust. And now I have
t/dracula.DOS.txt view on Meta::CPAN
that she is no more to be pained, no more to be worried with our
terrible things. Though we shall much miss her help, it is better
so."
"I agree with you with all my heart," I answered earnestly, for I did
not want him to weaken in this matter. "Mrs. Harker is better out of
it. Things are quite bad enough for us, all men of the world, and who
have been in many tight places in our time, but it is no place for a
woman, and if she had remained in touch with the affair, it would in
time infallibly have wrecked her."
view release on metacpan or search on metacpan
lib/EPUB/Parser/File/OPF/Context.pm view on Meta::CPAN
package EPUB::Parser::File::OPF::Context;
use strict;
use warnings;
use Smart::Args;
use Scalar::Util qw/weaken/;
use EPUB::Parser::Util::Context qw/child_class context_name parser/;
sub new {
args(
my $class => 'ClassName',
lib/EPUB/Parser/File/OPF/Context.pm view on Meta::CPAN
opf => $opf,
parser => $parser,
context_name => $context_name,
} => $child_class;
weaken $child->{opf};
return $child;
}
view release on metacpan or search on metacpan
lib/ETL/Yertl/InputSeries.pm view on Meta::CPAN
#pod =cut
use ETL::Yertl;
use base 'IO::Async::Notifier';
use Carp qw( croak );
use Scalar::Util qw( weaken );
sub configure {
my ( $self, %args ) = @_;
# Args to pass to streams as we create them
lib/ETL/Yertl/InputSeries.pm view on Meta::CPAN
$self->_shift_stream;
}
sub _shift_stream {
my ( $self ) = @_;
weaken $self;
my $stream = shift @{ $self->{streams} };
my $fh;
if ( !ref $stream ) {
open $fh, '<', $stream or die "Could not open $stream for reading: $!";
}
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
SvROK_off|5.003007|5.003007|
SvROK_on|5.003007|5.003007|
SvRV|5.003007|5.003007|
SvRV_const|5.010001||Viu
SvRV_set|5.009003|5.003007|p
sv_rvunweaken|5.027004|5.027004|
sv_rvweaken|5.006000|5.006000|
SvRVx|5.003007||Viu
SvRX|5.009005|5.003007|p
SvRXOK|5.009005|5.003007|p
SV_SAVED_COPY|5.009005||Viu
SvSCREAM|5.003007||Viu
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
" unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
" \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
" \$_[0]->{%s};\n" .
" } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
" return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
" \$_[0]->{%s} = \$_[1];\n",
weaken =>
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
" return \$_[0]->{%s};\n}\n",
);
sub field {
inc/Spiffy.pm view on Meta::CPAN
local *paired_arguments = sub { (qw(-package -init)) };
Spiffy->parse_arguments(@_);
};
my ($field, $default) = @values;
$package = $args->{-package} if defined $args->{-package};
die "Cannot have a default for a weakened field ($field)"
if defined $default && $args->{-weak};
return if defined &{"${package}::$field"};
require Scalar::Util if $args->{-weak};
my $default_string =
( ref($default) eq 'ARRAY' and not @$default )
inc/Spiffy.pm view on Meta::CPAN
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
$code .= sprintf $code{weaken}, $field, $field
if $args->{-weak};
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
" unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
" \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
" \$_[0]->{%s};\n" .
" } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
" return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
" \$_[0]->{%s} = \$_[1];\n",
weaken =>
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
" return \$_[0]->{%s};\n}\n",
);
sub field {
inc/Spiffy.pm view on Meta::CPAN
local *paired_arguments = sub { (qw(-package -init)) };
Spiffy->parse_arguments(@_);
};
my ($field, $default) = @values;
$package = $args->{-package} if defined $args->{-package};
die "Cannot have a default for a weakened field ($field)"
if defined $default && $args->{-weak};
return if defined &{"${package}::$field"};
require Scalar::Util if $args->{-weak};
my $default_string =
( ref($default) eq 'ARRAY' and not @$default )
inc/Spiffy.pm view on Meta::CPAN
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
$code .= sprintf $code{weaken}, $field, $field
if $args->{-weak};
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
" unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
" \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
" \$_[0]->{%s};\n" .
" } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
" return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
" \$_[0]->{%s} = \$_[1];\n",
weaken =>
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
" return \$_[0]->{%s};\n}\n",
);
sub field {
inc/Spiffy.pm view on Meta::CPAN
local *paired_arguments = sub { (qw(-package -init)) };
Spiffy->parse_arguments(@_);
};
my ($field, $default) = @values;
$package = $args->{-package} if defined $args->{-package};
die "Cannot have a default for a weakened field ($field)"
if defined $default && $args->{-weak};
return if defined &{"${package}::$field"};
require Scalar::Util if $args->{-weak};
my $default_string =
( ref($default) eq 'ARRAY' and not @$default )
inc/Spiffy.pm view on Meta::CPAN
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
$code .= sprintf $code{weaken}, $field, $field
if $args->{-weak};
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
view release on metacpan or search on metacpan
lib/Eixo/Queue/QueueRabbit.pm view on Meta::CPAN
package Eixo::Queue::QueueRabbit;
use strict;
use Scalar::Util qw(weaken);
use Eixo::Base::Clase "Eixo::Queue";
use Eixo::Queue::JobCifrador;
use Eixo::Queue::RabbitDriver;
lib/Eixo/Queue/QueueRabbit.pm view on Meta::CPAN
$job_class = $job_class || "Eixo::Queue::Job";
my $kself = $self;
weaken($kself);
$self->__suscribe(
$self->routing_key,
lib/Eixo/Queue/QueueRabbit.pm view on Meta::CPAN
sub wait :Sig(self, s, CODE, s){
my ($self, $routing_key_wait, $callback, $job_class, $timeout) = @_;
my $kself = $self;
weaken($kself);
$timeout && eval{
local $SIG{ALRM} = sub {