Home
last modified time | relevance | path

Searched refs:coderef (Results 1 – 25 of 1026) sorted by relevance

12345678910>>...42

/dports/devel/p5-Sub-Identify/Sub-Identify-0.14/
H A DIdentify.xs23 SV* coderef
28 if (SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV) {
29 coderef = SvRV(coderef);
44 SV* coderef
49 if (SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV) {
50 coderef = SvRV(coderef);
51 if (CvSTART(coderef) && !CvISXSUB(coderef)) {
64 SV* coderef
66 if (SvOK(coderef) && SvROK(coderef) && SvTYPE(SvRV(coderef)) == SVt_PVCV) {
67 coderef = SvRV(coderef);
[all …]
/dports/devel/p5-Devel-Size/Devel-Size-0.83/t/
H A Dwarnings.t55 my $coderef = 'sub {//}';
61 [$coderef, 'R', 'R'],
65 ["[$coderef]", '', 'R'],
66 ["[$coderef, $coderef]", '', 'R'],
71 ["[$formatref1, $coderef, $formatref2, $coderef]", '', 'RF'],
72 ["[$formatref1, $coderef, $coderef, $formatref2]", '', 'FR'],
73 ["[$formatref1, $formatref2, $coderef, $coderef]", '', 'RF'],
75 ["[$coderef, $formatref1, $coderef]", '', 'RF'],
76 ["[$coderef, $formatref1, $coderef, $formatref2]", '', 'FR'],
77 ["[$coderef, $formatref1, $formatref2, $coderef]", '', 'RF'],
[all …]
/dports/devel/upp/upp/uppsrc/ide/
H A DAnnotations.cpp20 coderef); in Annotate()
57 coderef = GetAnnotation(q); in GetAnnotationRefs()
58 if(IsNull(coderef)) in GetAnnotationRefs()
60 tl = GetRefLinks(coderef); in GetAnnotationRefs()
87 String coderef; in SyncAnnotationPopup() local
89 if(!GetAnnotationRef(tl, coderef)) in SyncAnnotationPopup()
98 String cr = coderef; in SyncAnnotationPopup()
175 SplitCodeRef(coderef, scope, item); in NewTopic()
184 String coderef; in EditAnnotation() local
186 if(!GetAnnotationRefs(tl, coderef)) in EditAnnotation()
[all …]
/dports/devel/p5-Sub-Identify/Sub-Identify-0.14/lib/Sub/
H A DIdentify.pm41 my ($coderef) = @_;
42 ref $coderef or return;
43 my $cv = B::svref_2object($coderef);
51 my ($coderef) = @_;
52 ref $coderef or return;
53 my $cv = B::svref_2object($coderef);
63 my ($coderef) = @_;
64 ref $coderef or return 0;
65 my $cv = B::svref_2object($coderef);
67 my $p = prototype $coderef;
/dports/www/p5-Test-LWP-UserAgent/Test-LWP-UserAgent-0.030/t/
H A D08-isa-coderef.t17 my $coderef = sub { fail 'sub should not be called' };
21 ok(!Test::LWP::UserAgent::__isa_coderef($string), 'string is not callable as a coderef');
22 ok(!Test::LWP::UserAgent::__isa_coderef($scalarref), 'scalarref is not callable as a coderef');
23 ok(Test::LWP::UserAgent::__isa_coderef($coderef), 'coderef is callable as a coderef');
24 ok(!Test::LWP::UserAgent::__isa_coderef($nota_coderef), 'blessed hash is not callable as a coderef'…
25 ok(Test::LWP::UserAgent::__isa_coderef($isa_coderef), 'blessed coderef is callable as a coderef');
26 …rAgent::__isa_coderef(CodeRefOverload->new), 'object with code overload is callable as a coderef');
/dports/textproc/p5-WDDX/WDDX-1.02/
H A DWDDX.pm332 my( $wddx, $hashref, $coderef ) = @_;
334 $coderef = sub { "" } unless
335 defined( $coderef ) && eval { &$coderef || 1 };
344 my $type = lc $coderef->( $name => $val, "HASH" );
362 $new_hash->{$name} = hash2wddx ( $wddx, $val, $coderef );
377 my( $wddx, $arrayref, $coderef ) = @_;
379 $coderef = sub { "" } unless
380 defined( $coderef ) && eval { &$coderef || 1 };
390 my $type = lc $coderef->( $i => $val, "ARRAY" );
408 push @$new_array, hash2wddx( $wddx, $val, $coderef );
[all …]
/dports/devel/agar/agar-1.5.0/p5-Agar/
H A DFileDlg.xs83 okAction(self, coderef)
85 SV * coderef
87 if (SvTYPE(SvRV(coderef)) == SVt_PVCV) {
88 SvREFCNT_inc(coderef);
90 AG_FileDlgOkAction(self, AP_EventHandler, "%p", coderef);
96 cancelAction(self, coderef)
98 SV * coderef
100 if (SvTYPE(SvRV(coderef)) == SVt_PVCV) {
101 SvREFCNT_inc(coderef);
103 AG_FileDlgCancelAction(self, AP_EventHandler, "%p", coderef);
H A DScrollbar.xs89 incAction(self, coderef)
91 SV * coderef
93 if (SvTYPE(SvRV(coderef)) == SVt_PVCV) {
94 SvREFCNT_inc(coderef);
96 AG_ScrollbarSetIncFn(self, AP_EventHandler, "%p", coderef);
102 decAction(self, coderef)
104 SV * coderef
106 if (SvTYPE(SvRV(coderef)) == SVt_PVCV) {
107 SvREFCNT_inc(coderef);
109 AG_ScrollbarSetDecFn(self, AP_EventHandler, "%p", coderef);
/dports/www/p5-RPC-ExtDirect/RPC-ExtDirect-3.24/lib/RPC/ExtDirect/API/
H A DHook.pm26 my ($type, $coderef) = @arg{qw/ type code /};
31 my $runnable = !('NONE' eq $coderef || !defined $coderef);
35 if ( 'CODE' eq ref $coderef ) {
36 $package = _package_from_coderef($coderef);
39 my @parts = split /::/, $coderef;
45 die "Can't resolve '$type' hook $coderef" unless $sub_name;
51 code => $coderef,
/dports/lang/ghc/ghc-8.10.7/docs/stg-spec/
H A DStgSyn.ott9 \newcommand{\coderef}[2]{\ghcfile{#1}:\texttt{#2}%
31 {{ com Literals, \coderef{basicTypes/Literal.hs}{Literal} }}
34 {{ com Primitive operation or foreign call, \coderef{stgSyn/StgSyn.hs}{StgOp} }}
37 {{ com Cost-centre, \coderef{profiling/CostCentre.hs}{CostCentre} }}
45 {{ com Cost-centre stack, \coderef{profiling/CostCentre.hs}{CostCentreStack} }}
47 a, b, c :: 'StgArg_' ::= {{ com Arguments, \coderef{stgSyn/StgSyn.hs}{StgArg} }}
62 e :: 'StgExpr_' ::= {{ com Expressions, \coderef{stgSyn/StgSyn.hs}{StgExpr} }}
78 binding :: 'StgBind_' ::= {{ com Let-bindings, \coderef{stgSyn/StgSyn.hs}{StgBind} }}
82 upd :: 'UpdateFlag_' ::= {{ com Update flag, \coderef{stgSyn/StgSyn.hs}{UpdateFlag} }}
89 rhs :: 'StgRhs_' ::= {{ com Right-hand sides, \coderef{stgSyn/StgSyn.hs}{StgRhs} }}
[all …]
/dports/converters/p5-Convert-PEM/Convert-PEM-0.08/inc/Test/
H A DException.pm39 my $coderef = shift;
45 eval { uplevel 3, $coderef };
71 my ( $coderef, $expecting, $description ) = @_;
78 my $exception = _try_as_caller( $coderef );
98 my ( $coderef, $description ) = @_;
99 my $exception = _try_as_caller( $coderef );
109 my ( $coderef, $description ) = @_;
110 my $exception = _try_as_caller( $coderef );
/dports/devel/p5-Class-Method-Modifiers-Fast/Class-Method-Modifiers-Fast-0.041/inc/Test/
H A DException.pm40 my $coderef = shift;
46 eval { uplevel 3, $coderef };
72 my ( $coderef, $expecting, $description ) = @_;
77 my $exception = _try_as_caller( $coderef );
97 my ( $coderef, $description ) = @_;
98 my $exception = _try_as_caller( $coderef );
108 my ( $coderef, $description ) = @_;
109 my $exception = _try_as_caller( $coderef );
/dports/databases/p5-DBIx-DBHResolver/DBIx-DBHResolver-0.17/inc/Test/
H A DException.pm72 my $coderef = shift;
78 eval { uplevel 3, $coderef };
104 my ( $coderef, $expecting, $description ) = @_;
111 my $exception = _try_as_caller( $coderef );
131 my ( $coderef, $description ) = @_;
132 my $exception = _try_as_caller( $coderef );
142 my ( $coderef, $description ) = @_;
143 my $exception = _try_as_caller( $coderef );
/dports/devel/p5-AnyEvent-Gearman/AnyEvent-Gearman-0.10/inc/Test/
H A DException.pm72 my $coderef = shift;
78 eval { uplevel 3, $coderef };
104 my ( $coderef, $expecting, $description ) = @_;
111 my $exception = _try_as_caller( $coderef );
131 my ( $coderef, $description ) = @_;
132 my $exception = _try_as_caller( $coderef );
142 my ( $coderef, $description ) = @_;
143 my $exception = _try_as_caller( $coderef );
/dports/devel/p5-Test-Exception/Test-Exception-0.43/lib/Test/
H A DException.pm137 my $coderef = shift;
143 eval { uplevel 3, $coderef };
217 my ( $coderef, $expecting, $description ) = @_;
224 my $exception = _try_as_caller( $coderef );
264 my ( $coderef, $description ) = @_;
265 my $exception = _try_as_caller( $coderef );
303 my ( $coderef, $description ) = @_;
304 my $exception = _try_as_caller( $coderef );
/dports/sysutils/webmin/webmin-1.981/authentic-theme/lib/File/
H A DGrep.pm75 my ( $coderef, @files ) = @_;
83 if ( &$coderef( $file, $pos, $_ ) ) {
98 if ( &$coderef( $file, $pos, $_ ) ) { $count++ };
109 if ( &$coderef( $file, $pos, $_ ) )
120 my ( $coderef, @files ) = @_;
125 if ( &$coderef( $file, $pos, $_ ) ) {
135 my ( $coderef, $arrayref, @files ) = @_;
139 if ( &$coderef( $file, $pos, $_ ) ) {
/dports/sysutils/usermin/usermin-1.830/authentic-theme/lib/File/
H A DGrep.pm75 my ( $coderef, @files ) = @_;
83 if ( &$coderef( $file, $pos, $_ ) ) {
98 if ( &$coderef( $file, $pos, $_ ) ) { $count++ };
109 if ( &$coderef( $file, $pos, $_ ) )
120 my ( $coderef, @files ) = @_;
125 if ( &$coderef( $file, $pos, $_ ) ) {
135 my ( $coderef, $arrayref, @files ) = @_;
139 if ( &$coderef( $file, $pos, $_ ) ) {
/dports/devel/p5-File-Grep/File-Grep-0.02/
H A DGrep.pm75 my ( $coderef, @files ) = @_;
83 if ( &$coderef( $file, $pos, $_ ) ) {
98 if ( &$coderef( $file, $pos, $_ ) ) { $count++ };
109 if ( &$coderef( $file, $pos, $_ ) )
120 my ( $coderef, @files ) = @_;
125 if ( &$coderef( $file, $pos, $_ ) ) {
135 my ( $coderef, $arrayref, @files ) = @_;
139 if ( &$coderef( $file, $pos, $_ ) ) {
/dports/devel/p5-Moose/Moose-2.2201/lib/Class/MOP/
H A DOverload.pm32 unless ( defined $params{method_name} || $params{coderef} ) {
39 if ( $params{coderef} ) {
79 sub coderef { $_[0]->{coderef} } subroutine
80 sub has_coderef { exists $_[0]->{coderef} }
121 return $self->coderef == $other->coderef;
/dports/devel/p5-Class-Autouse/Class-Autouse-2.01/t/
H A D02_main.t117 my $coderef = G->can('foo');
118 is( ref($coderef), 'CODE', 'Good existant ->can autoloads correctly and returns a CO…
119 is( refaddr(&$coderef), refaddr(&G::foo), '->can returns the expected function' );
123 $coderef = 'foobar';
131 $coderef = 'foobar';
133 $coderef = I->can('foo');
136 is( $coderef, 'foobar', 'Assigned value from autoloading ->can remains unchanged'…
/dports/devel/p5-UNIVERSAL-which/UNIVERSAL-which-0.06/lib/UNIVERSAL/
H A Dwhich.pm9 my $coderef = $self->can($method);
10 unless ($coderef) {
12 $coderef = $self->can($method);
14 return unless UNIVERSAL::isa($coderef, 'CODE');
16 my $b = B::svref_2object($coderef);
/dports/devel/p5-Moose/Moose-2.2201/
H A Dmop.c80 mop_get_code_info (SV *coderef, char **pkg, char **name) in mop_get_code_info() argument
82 if (!SvOK(coderef) || !SvROK(coderef) || SvTYPE(SvRV(coderef)) != SVt_PVCV) { in mop_get_code_info()
86 coderef = SvRV(coderef); in mop_get_code_info()
89 if (!CvGV(coderef)) { in mop_get_code_info()
98 if ( isGV_with_GP(CvGV(coderef)) ) { in mop_get_code_info()
99 GV *gv = CvGV(coderef); in mop_get_code_info()
100 HV *stash = GvSTASH(gv) ? GvSTASH(gv) : CvSTASH(coderef); in mop_get_code_info()
103 *name = GvNAME( CvGV(coderef) ); in mop_get_code_info()
/dports/textproc/p5-Text-Tmpl/Text-Tmpl-0.33/
H A Dperl_tags.c38 SV **coderef = NULL; in perl_simple_tag() local
58 coderef = hv_fetch(stags, argv[0], strlen(argv[0]), FALSE); in perl_simple_tag()
65 if (coderef == NULL) in perl_simple_tag()
70 code = (CV *)*coderef; in perl_simple_tag()
140 SV **coderef = NULL; in perl_tag_pair() local
162 coderef = hv_fetch(tagps, argv[0], strlen(argv[0]), FALSE); in perl_tag_pair()
168 if (coderef == NULL) in perl_tag_pair()
172 code = (CV *)*coderef; in perl_tag_pair()
/dports/devel/p5-Path-Iterator-Rule/Path-Iterator-Rule-1.008/lib/Path/Iterator/
H A DRule.pm64 my $rule = $coderef->(@_);
70 my $rule = $coderef->(@_);
319 my $coderef = sub {
333 return $self->and($coderef);
339 my $coderef = sub {
343 return $self->and($coderef);
350 my $coderef = sub {
367 return $self->and($coderef);
619 my $coderef = sub {
624 __PACKAGE__->add_helper( $name, $coderef );
[all …]
/dports/net/p5-POE-Component-Generic/POE-Component-Generic-0.1403/lib/POE/Component/Generic/Net/
H A DSSH2.pm150 my( $self, $channel, $event, $coderef ) = @_;
154 if( $coderef ) {
155 die "Must be a coderef" unless 'CODE' eq reftype $coderef;
157 $self->{ssh_channels}{$channel}{$event} = $coderef;
296 my( $self, $coderef ) = @_;
299 $Net::SSH2::CHILD->__handler( $self, 'in', $coderef );
304 my( $self, $coderef ) = @_;
307 $Net::SSH2::CHILD->__handler( $self, 'ext', $coderef );
312 my( $self, $coderef ) = @_;
315 $Net::SSH2::CHILD->__handler( $self, 'channel_closed', $coderef );

12345678910>>...42