8 our $quoted_default_ran = 0;
25 default => quote_sub(q{
26 $$quoted_default_ran = 1;
28 }, { '$quoted_default_ran' => \\$quoted_default_ran }),
34 builder => 'build_frioux',
49 ok(!$LazyFrew::default_ran, 'default has not run yet');
50 ok(!$LazyFrew::quoted_default_ran, 'quoted default has not run yet');
51 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
53 is($x->frooh, 'test frooh', 'frooh defaulted correctly');
55 ok($LazyFrew::default_ran, 'default ran');
56 ok(!$LazyFrew::quoted_default_ran, 'quoted default has not run yet');
57 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
59 is($x->frew, 'test frew', 'frew defaulted correctly');
61 ok($LazyFrew::default_ran, 'default ran');
62 ok($LazyFrew::quoted_default_ran, 'quoted default ran');
63 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
65 is($x->frioux, 'test frioux', 'frioux built correctly');
67 ok($LazyFrew::default_ran, 'default ran');
68 ok($LazyFrew::quoted_default_ran, 'quoted default ran');
69 ok($LazyFrew::builder_ran, 'builder ran');