| /openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/ |
| H A D | 01_load.t | 6 # see that Hash::Util::FieldHash and Hash::Util load and export what 10 use_ok( 'Hash::Util'); 11 ok( defined( &Hash::Util::lock_keys), "Hash::Util::lock_keys found"); 12 ok( !defined( &Hash::Util::FieldHash::fieldhashes), 13 "Hash::Util::FieldHash not loaded", 19 use Hash::Util qw( lock_keys); 21 ok( defined( &lock_keys), "lock_keys imported from Hash::Util"); 24 use Hash::Util qw( fieldhashes); 26 ok( defined( &Hash::Util::FieldHash::fieldhashes), 27 "Hash::Util::FieldHash loaded", [all …]
|
| H A D | 02_function.t | 7 use Hash::Util::FieldHash qw( :all); 8 my $ob_reg = Hash::Util::FieldHash::_ob_reg; 23 Hash::Util::FieldHash::_fieldhash \ %h, $fieldhash_mode; 35 Hash::Util::FieldHash::idhash my %h; 71 Hash::Util::FieldHash::_fieldhash $h, $fieldhash_mode; 85 Hash::Util::FieldHash::_fieldhash \ my( %h), $fieldhash_mode; 99 Hash::Util::FieldHash::_fieldhash \ %f, $fieldhash_mode; 100 Hash::Util::FieldHash::_fieldhash \ %g, $fieldhash_mode; 120 Hash::Util::FieldHash::_fieldhash \ %h, $fieldhash_mode; 131 Hash::Util [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| H A D | 00version.t | 6 use Scalar::Util (); 7 use List::Util (); 8 use List::Util::XS (); 9 use Sub::Util (); 12 is( $Scalar::Util::VERSION, $List::Util::VERSION, "VERSION mismatch between Scalar/List"); 13 my $has_xs = eval { Scalar::Util->import('dualvar'); 1 }; 14 my $xs_version = $has_xs ? $List::Util::VERSION : undef; 15 is( $List::Util::XS::VERSION, $xs_version, "VERSION mismatch between LU::XS and LU"); 16 is( $Sub::Util::VERSION, $Scalar::Util::VERSION, "VERSION mistmatch between Sub/Scalar"); 17 is( $Sub::Util::VERSION, $List::Util::VERSION, "VERSION mistmatch between Sub/List");
|
| H A D | scalarutil-proto.t | 6 use Scalar::Util (); 7 use Test::More (grep { /set_prototype/ } @Scalar::Util::EXPORT_FAIL) 11 Scalar::Util->import('set_prototype'); 69 &Scalar::Util::set_prototype($cv, '$$');
|
| H A D | isvstring.t | 7 use Scalar::Util (); 8 use Test::More (grep { /isvstring/ } @Scalar::Util::EXPORT_FAIL) 12 use Scalar::Util qw(isvstring);
|
| H A D | min.t | 7 use List::Util qw(min); 73 my $sum= List::Util::sum( 0, $#list ); 76 my $min= List::Util::min( 15, $#list ); 79 my $max= List::Util::max( 0, $#list );
|
| H A D | first.t | 6 use List::Util qw(first); 49 ::is(List::Util::first(sub{$_>4},(1..4,24)), 24, 'other package'); 95 $List::Util::REAL_MULTICALL ||= 0; # Avoid use only once 97 if !$List::Util::REAL_MULTICALL;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Util/ |
| H A D | HashBase.pm | 1 package Test2::Util::HashBase; 19 $Test2::Util::HashBase::HB_VERSION = '0.009'; 20 *Test2::Util::HashBase::ATTR_SUBS = \%Object::HashBase::ATTR_SUBS; 21 *Test2::Util::HashBase::ATTR_LIST = \%Object::HashBase::ATTR_LIST; 22 *Test2::Util::HashBase::VERSION = \%Object::HashBase::VERSION; 23 *Test2::Util::HashBase::CAN_CACHE = \%Object::HashBase::CAN_CACHE; 60 my $ver = $Test2::Util::HashBase::HB_VERSION || $Test2::Util::HashBase::VERSION; 61 $Test2::Util::HashBase::VERSION{$into} = $ver if !$Test2::Util [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Tie-RefHash/lib/Tie/ |
| H A D | RefHash.pm | 85 *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 }; 86 *_HAS_WEAKEN = defined(&Scalar::Util::weaken) ? sub () { 1 } : sub () { 0 }; 95 *refaddr = sub { goto \&Scalar::Util::refaddr } 125 Scalar::Util::weaken( $thread_object_registry[-1] ); 173 …%{ $self->[0] } = map +(Scalar::Util::refaddr($_->[0]) => $_), (values(%{ $self->[0] }), @{ $extra… 179 my $kstr = Scalar::Util::refaddr($k); 195 $s->[0]{Scalar::Util::refaddr($k)} = [$k, $v]; 206 ? (delete($s->[0]{Scalar::Util::refaddr($k)}) || [])->[1] 212 (ref $k) ? exists($s->[0]{Scalar::Util::refaddr($k)}) : exists($s->[1]{$k});
|
| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | each.t | 68 require Hash::Util; 69 sub Hash::Util::num_buckets (\%); 71 my $size = Hash::Util::num_buckets(%h); 73 my $newsize = Hash::Util::num_buckets(%h); 76 $size = Hash::Util::num_buckets(%h); 79 $size = Hash::Util::num_buckets(%h); 83 $size = Hash::Util::num_buckets(%h); 114 require Hash::Util; 115 sub Hash::Util::num_buckets (\%); 117 my $size = Hash::Util::num_buckets(%hash); [all …]
|
| H A D | attrhand.t | 50 QNET::Util::Object, 51 QNET::Util::Object, 52 QNET::Util::Object
|
| H A D | not.t | 72 my $a = Scalar::Util::dualvar(3, ""); 74 my $b = Scalar::Util::dualvar(3.3,""); 76 my $c = Scalar::Util::dualvar(0,"1");
|
| /openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/lib/Hash/Util/ |
| H A D | FieldHash.pm | 1 package Hash::Util::FieldHash; 34 return $_ if Hash::Util::FieldHash::_fieldhash( $_, 0); 35 return $_ if Hash::Util::FieldHash::_fieldhash( $_, 2) == 2; 43 return $_ if Hash::Util::FieldHash::_fieldhash( $_, 0); 44 return $_ if Hash::Util::FieldHash::_fieldhash( $_, 1) == 1; 57 Hash::Util::FieldHash - Support for Inside-Out Classes 62 use Hash::Util qw(fieldhash fieldhashes); 73 use Hash::Util::FieldHash qw(idhash register); 82 use Hash::Util::FieldHash qw(id register); 92 C<Hash::Util [all...] |
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/lib/Scalar/ |
| H A D | Util.pm | 7 package Scalar::Util; 23 require List::Util; # List::Util loads the XS 24 List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863) 40 return Sub::Util::set_prototype( $proto, $code );
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/lib/List/ |
| H A D | Util.pm | 7 package List::Util; 43 sub List::Util::_Pair::key { shift->[0] } 44 sub List::Util::_Pair::value { shift->[1] } 45 sub List::Util::_Pair::TO_JSON { [ @{+shift} ] }
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/lib/Sub/ |
| H A D | Util.pm | 5 package Sub::Util; 21 require List::Util; # as it has the XS 22 List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Event/ |
| H A D | V2.pm | 7 use Scalar::Util qw/reftype/; 12 use Test2::Util::Facets2Legacy qw{ 17 use Test2::Util::HashBase qw/-about/; 22 Test2::Util::ExternalMeta::META_KEY(), 178 These are all imported from L<Test2::Util::Facets2Legacy>, see that module or 205 This object consumes L<Test2::Util::ExternalMeta> which provides a consistent
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Filter-Util-Call/t/ |
| H A D | call.t | 5 if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) { 6 print "1..0 # Skip: Filter::Util::Call was not built\n"; 54 use Filter::Util::Call ; 71 use Filter::Util::Call ; 85 …? qr/^Not enough arguments for subroutine entry Filter::Util::Call::filter_add at ${module}\.pm li… 86 : qr/^Not enough arguments for Filter::Util::Call::filter_add at ${module}\.pm line/m; 110 use Filter::Util::Call ; 158 use Filter::Util::Call ; 207 use Filter::Util::Call ; 228 use Filter::Util::Call ; [all …]
|
| /openbsd-src/gnu/usr.bin/perl/ext/Hash-Util/ |
| H A D | Changes | 1 Revision history for Perl extension Hash::Util. 18 Add bucket_stats_formatted() as utility method to Hash::Util 22 - added front-end support for the new Hash::Util::FieldHash 27 -n Hash::Util -A
|
| /openbsd-src/gnu/usr.bin/perl/dist/autouse/t/ |
| H A D | autouse.t | 5 if ($Config::Config{'extensions'} !~ m!\bList/Util\b!){ 101 skip "no Hash::Util", 1 unless $Config{extensions} =~ /\bHash::Util\b/; 107 *Hash::Util::all_keys = \&all_keys; 108 require Hash::Util;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/ |
| H A D | HashBase.t | 28 use Test2::Util::HashBase qw/foo bar baz/; 39 use Test2::Util::HashBase qw/apple pear/; 69 use Test2::Util::HashBase qw/foo/; 96 use Test2::Util::HashBase qw/foo bar dup/; 113 use Test2::Util::HashBase qw/baz dup/; 126 use Test2::Util::HashBase qw/foo bar baz/; 138 use Test2::Util::HashBase qw/foo -bar ^baz <bat >ban +boo/; 172 [Test2::Util::HashBase::attr_list('main::HBase::Wrapped::Inherit')], 210 use Test2::Util::HashBase qw/foo/; 221 use Test2::Util::HashBase qw/foo/;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/ |
| H A D | Event.pm | 7 use Scalar::Util qw/blessed reftype/; 10 use Test2::Util::HashBase qw/trace -amnesty uuid -_eid -hubs/; 11 use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; 12 use Test2::Util qw/pkg_to_file gen_uid/; 27 require Test2::Util::Trace; 158 my $key = Test2::Util::ExternalMeta::META_KEY(); 353 use Test2::Util::HashBase qw/foo bar baz/; 357 use Test2::Util::Facets2Legacy; 744 This object consumes L<Test2::Util::ExternalMeta> which provides a consistent
|
| /openbsd-src/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | weak.t | 18 if ($Config{extensions} !~ /\bList\/Util\b/) { 23 require Scalar::Util; 24 Scalar::Util->import(qw(weaken isweak)); 25 if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) {
|
| /openbsd-src/gnu/usr.bin/perl/cpan/version/t/ |
| H A D | 09_list_util.t | 11 eval "use List::Util qw(reduce)"; 13 plan skip_all => "No List::Util::reduce() available"; 21 use List::Util qw(reduce);
|
| /openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/ |
| H A D | Changes | 1 Revision history for Perl extension Hash::Util::FieldHash. 5 -A -g --skip-ppport -nHash::Util::FieldHash 22 - updated pod part of lib/Hash/Util.pm
|