Lines Matching refs:preload

128 for my $preload ( [], [ map {}, 1 .. 3] ) {
129     my $pre = @$preload ? ' (preloaded)' : '';
132     my @preval = map "$_", @$preload;
133     @f{ @$preload} = @preval;
143                 1 + @$preload,
147         is( keys %f, @$preload, "$type gone$pre");
151     is( keys %$ob_reg, @$preload, "no objs remaining$pre");
161             @test_types + @$preload,
165     die "preload gone" unless defined $preload;
167     is( keys %$ob_reg, @$preload, "all types unregistered$pre");
169 is( keys %$ob_reg, 0, "preload gone after loop");