/dports/devel/p5-Module-Info/Module-Info-0.35/lib/B/Module/ |
H A D | Info.pm | 68 my $cv = const_sv($_[0]); 140 $module = const_sv($req_op->first)->PV; 186 sub const_sv { subroutine 299 return '' unless const_sv($constop)->PV eq $module; 301 $version = const_sv($constop); 319 return '' if const_sv($constop)->PV ne "VERSION"; 338 $name = const_sv($op->first)->PV; 350 my $sv = const_sv($kid); 390 const_sv($kid)->PV, 436 $class = const_sv($classop)->PV;
|
/dports/lang/perl5.30/perl-5.30.3/ |
H A D | pad.c | 2118 SV* const_sv; in S_cv_clone_pad() local 2125 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad() 2128 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad() 2172 const_sv = newSVsv(const_sv); in S_cv_clone_pad() 2180 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad() 2184 SvREADONLY_on(const_sv); in S_cv_clone_pad() 2185 SvPADTMP_on(const_sv); in S_cv_clone_pad() 2187 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
|
H A D | op.c | 9509 SV *const_sv; in Perl_newMYSUB() local 9616 const_sv = NULL; in Perl_newMYSUB() 9647 if (const_sv) { in Perl_newMYSUB() 9749 if (const_sv) in Perl_newMYSUB() 9947 SV *const_sv; in Perl_newATTRSUB_x() local 10117 const_sv = in Perl_newATTRSUB_x() 10124 const_sv = NULL; in Perl_newATTRSUB_x() 10145 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x() 10183 if (const_sv) { in Perl_newATTRSUB_x() 10203 const_sv in Perl_newATTRSUB_x() [all …]
|
/dports/lang/perl5.32/perl-5.32.1/lib/B/ |
H A D | Deparse.pm | 563 $module = $self->const_sv($req_op->first)->PV; 580 $version = $self->const_sv($constop); 1391 my $sv = $cv->const_sv; 1426 push @text, "\f".$self->const_sv($kid)->PV; 2545 my $kid = $self->const_sv($op->first)->PV; 2675 my $sv = $self->const_sv($kid); 3473 $fh = $self->const_sv($kid)->PV; 3500 $indir = $self->const_sv($indir)->PV; 4333 my $av = $self->const_sv($kid); 5504 sub const_sv { subroutine [all …]
|
/dports/lang/perl5.30/perl-5.30.3/lib/B/ |
H A D | Deparse.pm | 561 $module = $self->const_sv($req_op->first)->PV; 578 $version = $self->const_sv($constop); 1361 my $sv = $cv->const_sv; 1396 push @text, "\f".$self->const_sv($kid)->PV; 2514 my $kid = $self->const_sv($op->first)->PV; 2644 my $sv = $self->const_sv($kid); 3382 $fh = $self->const_sv($kid)->PV; 3409 $indir = $self->const_sv($indir)->PV; 4242 my $av = $self->const_sv($kid); 5413 sub const_sv { subroutine [all …]
|
/dports/lang/perl5.32/perl-5.32.1/ |
H A D | pad.c | 2120 SV* const_sv; in S_cv_clone_pad() local 2127 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad() 2130 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad() 2168 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad() 2172 SvREADONLY_on(const_sv); in S_cv_clone_pad() 2173 SvPADTMP_on(const_sv); in S_cv_clone_pad() 2175 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
|
H A D | op.c | 10787 SV *const_sv; in Perl_newMYSUB() local 10894 const_sv = NULL; in Perl_newMYSUB() 10925 if (const_sv) { in Perl_newMYSUB() 11027 if (const_sv) in Perl_newMYSUB() 11225 SV *const_sv; in Perl_newATTRSUB_x() local 11395 const_sv = in Perl_newATTRSUB_x() 11402 const_sv = NULL; in Perl_newATTRSUB_x() 11423 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x() 11461 if (const_sv) { in Perl_newATTRSUB_x() 11481 const_sv in Perl_newATTRSUB_x() [all …]
|
/dports/lang/perl5.34/perl-5.34.0/ |
H A D | pad.c | 2118 SV* const_sv; in S_cv_clone_pad() local 2125 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad() 2128 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad() 2166 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad() 2170 SvREADONLY_on(const_sv); in S_cv_clone_pad() 2171 SvPADTMP_on(const_sv); in S_cv_clone_pad() 2173 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
|
H A D | op.c | 10842 SV *const_sv; in Perl_newMYSUB() local 10948 const_sv = NULL; in Perl_newMYSUB() 10979 if (const_sv) { in Perl_newMYSUB() 11080 if (const_sv) in Perl_newMYSUB() 11289 SV *const_sv; in Perl_newATTRSUB_x() local 11459 const_sv = in Perl_newATTRSUB_x() 11466 const_sv = NULL; in Perl_newATTRSUB_x() 11487 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x() 11525 if (const_sv) { in Perl_newATTRSUB_x() 11545 const_sv in Perl_newATTRSUB_x() [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
H A D | pad.c | 2125 SV* const_sv; in S_cv_clone_pad() local 2132 const_sv = PAD_BASE_SV(CvPADLIST(cv), o->op_targ); in S_cv_clone_pad() 2135 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad() 2173 SvREFCNT_inc_simple_void_NN(const_sv); in S_cv_clone_pad() 2177 SvREADONLY_on(const_sv); in S_cv_clone_pad() 2178 SvPADTMP_on(const_sv); in S_cv_clone_pad() 2180 cv = newCONSTSUB(CvSTASH(proto), NULL, const_sv); in S_cv_clone_pad()
|
H A D | op.c | 10887 SV *const_sv; in Perl_newMYSUB() local 10990 const_sv = NULL; in Perl_newMYSUB() 10993 const_sv = NULL; in Perl_newMYSUB() 11024 if (const_sv) { in Perl_newMYSUB() 11125 if (const_sv) in Perl_newMYSUB() 11333 SV *const_sv; in Perl_newATTRSUB_x() local 11503 const_sv = in Perl_newATTRSUB_x() 11507 const_sv = NULL; in Perl_newATTRSUB_x() 11510 const_sv = NULL; in Perl_newATTRSUB_x() 11531 && ( !const_sv || SvRV(gv) == const_sv in Perl_newATTRSUB_x() [all …]
|
/dports/lang/perl5.34/perl-5.34.0/lib/B/ |
H A D | Deparse.pm | 564 $module = $self->const_sv($req_op->first)->PV; 581 $version = $self->const_sv($constop); 1392 my $sv = $cv->const_sv; 1427 push @text, "\f".$self->const_sv($kid)->PV; 2548 my $kid = $self->const_sv($op->first)->PV; 2678 my $sv = $self->const_sv($kid); 3476 $fh = $self->const_sv($kid)->PV; 3503 $indir = $self->const_sv($indir)->PV; 4361 my $av = $self->const_sv($kid); 5532 sub const_sv { subroutine [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/lib/B/ |
H A D | Deparse.pm | 564 $module = $self->const_sv($req_op->first)->PV; 581 $version = $self->const_sv($constop); 1392 my $sv = $cv->const_sv; 1427 push @text, "\f".$self->const_sv($kid)->PV; 2549 my $kid = $self->const_sv($op->first)->PV; 2679 my $sv = $self->const_sv($kid); 3477 $fh = $self->const_sv($kid)->PV; 3504 $indir = $self->const_sv($indir)->PV; 4366 my $av = $self->const_sv($kid); 5537 sub const_sv { subroutine [all …]
|
/dports/math/polymake/polymake-4.5/lib/core/src/perl/ |
H A D | Poly.xxs | 63 GV* retrieve_gv(pTHX_ OP* o, OP* const_op, SV** const_sv, PERL_CONTEXT* cx, PERL_CONTEXT* cx_bottom) 74 if (const_sv) *const_sv = UNOP_AUX_item_sv(++items); 79 if (const_sv) *const_sv = cSVOPx_sv(const_op);
|
/dports/lang/perl5.34/perl-5.34.0/ext/B/ |
H A D | B.xs | 2074 const_sv(cv)
|
/dports/lang/perl5.32/perl-5.32.1/ext/B/ |
H A D | B.xs | 2006 const_sv(cv)
|
/dports/lang/perl5.30/perl-5.30.3/ext/B/ |
H A D | B.xs | 1998 const_sv(cv)
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ext/B/ |
H A D | B.xs | 2074 const_sv(cv)
|
/dports/devel/p5-Test-DBIx-Class/Test-DBIx-Class-0.52/ |
H A D | tags | 4032 av ../perl/lib/B/Deparse.pm /^ my $av = $self->const_sv($kid);$/;" v file: class:Deparse 6270 const_sv ../perl/lib/B/Deparse.pm /^sub const_sv {$/;" s class:Deparse 10324 kid ../perl/lib/B/Deparse.pm /^ my $kid = $self->const_sv($op->first)->PV;$/;" v file: class:Deparse 20388 sv ../perl/lib/B/Deparse.pm /^ my $sv = $cv->const_sv;$/;" v file: class:Deparse 20389 sv ../perl/lib/B/Deparse.pm /^ my $sv = $self->const_sv($kid);$/;" v file: class:Deparse 20393 sv ../perl/lib/B/Deparse.pm /^ my $sv = $self->const_sv($op);$/;" v file: class:Deparse 21121 unbacked ../perl/lib/B/Deparse.pm /^ my $unbacked = re_unback($self->const_sv($op)->as_string);$/;"…
|