Home
last modified time | relevance | path

Searched refs:hinthash (Results 1 – 25 of 71) sorted by relevance

123

/dports/devel/p5-Reply/Reply-0.42/lib/Reply/Plugin/
H A DHints.pm25 $self->{hinthash} = $default_hinthash;
60 our $hinthash = $self->{hinthash};
66 $self->{hinthash} = $hinthash;
/dports/devel/p5-namespace-clean/namespace-clean-0.27/t/
H A D09-fiddle-hinthash.t27 Test::More::is( $^H{'foo'}, 'bar', 'compiletime hinthash intact after n::c' );
33 $^H{'foo'}, 'bar', 'compile-time hinthash intact in inner scope'
42 'Tied hinthash values not present in extended caller() on perls older than 5.10'
47 … Test::More::is( ( (caller(0))[10] || {} )->{foo}, 'bar', 'hinthash values visible in caller' );
/dports/devel/p5-namespace-clean-xs/namespace-clean-xs-0.09/t/
H A D09-fiddle-hinthash.t27 Test::More::is( $^H{'foo'}, 'bar', 'compiletime hinthash intact after n::c' );
33 $^H{'foo'}, 'bar', 'compile-time hinthash intact in inner scope'
42 'Tied hinthash values not present in extended caller() on perls older than 5.10'
47 … Test::More::is( ( (caller(0))[10] || {} )->{foo}, 'bar', 'hinthash values visible in caller' );
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/lib/
H A Dfeature.pm737 my ($hints, $hinthash) = @frame[8, 10];
746 if ($hinthash->{$feature{$feature}}) {
760 my ($hints, $hinthash) = @frame[8, 10];
773 return $hinthash->{$hint_feature} // 0;
H A Dless.pm25 my $hinthash = ( caller 0 )[10];
27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
/dports/lang/perl5.34/perl-5.34.0/t/lib/
H A Dmypragma.pm41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};
/dports/lang/perl5.30/perl-5.30.3/t/lib/
H A Dmypragma.pm41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/t/lib/
H A Dmypragma.pm41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};
/dports/lang/perl5.32/perl-5.32.1/t/lib/
H A Dmypragma.pm41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};
/dports/databases/p5-GDBM/perl-5.14.2/t/lib/
H A Dmypragma.pm41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};
/dports/devel/p5-ToolSet/ToolSet-1.00/t/lib/
H A Dbogopragma.pm15 my $hinthash = (caller($level))[10];
16 return $hinthash->{bogopragma};
/dports/lang/perl5.34/perl-5.34.0/lib/
H A Dless.pm25 my $hinthash = ( caller 0 )[10];
27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
/dports/lang/perl5.30/perl-5.30.3/lib/
H A Dless.pm25 my $hinthash = ( caller 0 )[10];
27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
/dports/lang/perl5.32/perl-5.32.1/lib/
H A Dless.pm25 my $hinthash = ( caller 0 )[10];
27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/regen/
H A Dfeature.pl1080 my ($hints, $hinthash) = @frame[8, 10];
1089 if ($hinthash->{$feature{$feature}}) {
1103 my ($hints, $hinthash) = @frame[8, 10];
1116 return $hinthash->{$hint_feature} // 0;
/dports/math/p5-bignum/bignum-0.63/lib/
H A Dbignum.pm54 my $hinthash = (caller($level))[10];
55 $hinthash->{bignum};
H A Dbigrat.pm54 my $hinthash = (caller($level))[10];
55 $hinthash->{bigrat};
H A Dbigint.pm54 my $hinthash = (caller($level))[10];
55 $hinthash->{bigint};
/dports/lang/perl5.34/perl-5.34.0/cpan/bignum/lib/
H A Dbigint.pm107 my $hinthash = (caller($level))[10];
108 $hinthash->{bigint};
H A Dbigrat.pm65 my $hinthash = (caller($level))[10];
66 $hinthash->{bigrat};
/dports/lang/perl5.30/perl-5.30.3/cpan/bignum/lib/
H A Dbigint.pm107 my $hinthash = (caller($level))[10];
108 $hinthash->{bigint};
H A Dbigrat.pm65 my $hinthash = (caller($level))[10];
66 $hinthash->{bigrat};
/dports/lang/perl5.32/perl-5.32.1/cpan/bignum/lib/
H A Dbigint.pm107 my $hinthash = (caller($level))[10];
108 $hinthash->{bigint};
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/bignum/lib/
H A Dbigint.pm107 my $hinthash = (caller($level))[10];
108 $hinthash->{bigint};
/dports/devel/p5-Scope-Upper/Scope-Upper-0.32/t/
H A D07-context_info.t34 my ($file, $eval, $require, $hints, $warnings, $hinthash)
67 push @exp, $hinthash if "$]" >= 5.010;

123