/dports/devel/p5-Reply/Reply-0.42/lib/Reply/Plugin/ |
H A D | Hints.pm | 25 $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 D | 09-fiddle-hinthash.t | 27 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 D | 09-fiddle-hinthash.t | 27 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 D | feature.pm | 737 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 D | less.pm | 25 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 D | mypragma.pm | 41 my $hinthash = (caller(0))[10]; 42 return $hinthash->{mypragma};
|
/dports/lang/perl5.30/perl-5.30.3/t/lib/ |
H A D | mypragma.pm | 41 my $hinthash = (caller(0))[10]; 42 return $hinthash->{mypragma};
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/t/lib/ |
H A D | mypragma.pm | 41 my $hinthash = (caller(0))[10]; 42 return $hinthash->{mypragma};
|
/dports/lang/perl5.32/perl-5.32.1/t/lib/ |
H A D | mypragma.pm | 41 my $hinthash = (caller(0))[10]; 42 return $hinthash->{mypragma};
|
/dports/databases/p5-GDBM/perl-5.14.2/t/lib/ |
H A D | mypragma.pm | 41 my $hinthash = (caller(0))[10]; 42 return $hinthash->{mypragma};
|
/dports/devel/p5-ToolSet/ToolSet-1.00/t/lib/ |
H A D | bogopragma.pm | 15 my $hinthash = (caller($level))[10]; 16 return $hinthash->{bogopragma};
|
/dports/lang/perl5.34/perl-5.34.0/lib/ |
H A D | less.pm | 25 my $hinthash = ( caller 0 )[10]; 27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
|
/dports/lang/perl5.30/perl-5.30.3/lib/ |
H A D | less.pm | 25 my $hinthash = ( caller 0 )[10]; 27 @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
|
/dports/lang/perl5.32/perl-5.32.1/lib/ |
H A D | less.pm | 25 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 D | feature.pl | 1080 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 D | bignum.pm | 54 my $hinthash = (caller($level))[10]; 55 $hinthash->{bignum};
|
H A D | bigrat.pm | 54 my $hinthash = (caller($level))[10]; 55 $hinthash->{bigrat};
|
H A D | bigint.pm | 54 my $hinthash = (caller($level))[10]; 55 $hinthash->{bigint};
|
/dports/lang/perl5.34/perl-5.34.0/cpan/bignum/lib/ |
H A D | bigint.pm | 107 my $hinthash = (caller($level))[10]; 108 $hinthash->{bigint};
|
H A D | bigrat.pm | 65 my $hinthash = (caller($level))[10]; 66 $hinthash->{bigrat};
|
/dports/lang/perl5.30/perl-5.30.3/cpan/bignum/lib/ |
H A D | bigint.pm | 107 my $hinthash = (caller($level))[10]; 108 $hinthash->{bigint};
|
H A D | bigrat.pm | 65 my $hinthash = (caller($level))[10]; 66 $hinthash->{bigrat};
|
/dports/lang/perl5.32/perl-5.32.1/cpan/bignum/lib/ |
H A D | bigint.pm | 107 my $hinthash = (caller($level))[10]; 108 $hinthash->{bigint};
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/bignum/lib/ |
H A D | bigint.pm | 107 my $hinthash = (caller($level))[10]; 108 $hinthash->{bigint};
|
/dports/devel/p5-Scope-Upper/Scope-Upper-0.32/t/ |
H A D | 07-context_info.t | 34 my ($file, $eval, $require, $hints, $warnings, $hinthash) 67 push @exp, $hinthash if "$]" >= 5.010;
|