/dports/devel/p5-Sub-Identify/Sub-Identify-0.14/ |
H A D | Identify.xs | 23 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 D | warnings.t | 55 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 D | Annotations.cpp | 20 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 D | Identify.pm | 41 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 D | 08-isa-coderef.t | 17 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 D | WDDX.pm | 332 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 D | FileDlg.xs | 83 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 D | Scrollbar.xs | 89 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 D | Hook.pm | 26 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 D | StgSyn.ott | 9 \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 D | Exception.pm | 39 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 D | Exception.pm | 40 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 D | Exception.pm | 72 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 D | Exception.pm | 72 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 D | Exception.pm | 137 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 D | Grep.pm | 75 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 D | Grep.pm | 75 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 D | Grep.pm | 75 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 D | Overload.pm | 32 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 D | 02_main.t | 117 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 D | which.pm | 9 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 D | mop.c | 80 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 D | perl_tags.c | 38 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 D | Rule.pm | 64 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 D | SSH2.pm | 150 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 );
|