11 our $quoted_default_ran = 0;
28 default => quote_sub(q{
29 $$quoted_default_ran = 1;
31 }, { '$quoted_default_ran' => \\$quoted_default_ran }),
37 builder => 'build_frioux',
52 ok(!$LazyFrew::default_ran, 'default has not run yet');
53 ok(!$LazyFrew::quoted_default_ran, 'quoted default has not run yet');
54 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
56 is($x->frooh, 'test frooh', 'frooh defaulted correctly');
58 ok($LazyFrew::default_ran, 'default ran');
59 ok(!$LazyFrew::quoted_default_ran, 'quoted default has not run yet');
60 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
62 is($x->frew, 'test frew', 'frew defaulted correctly');
64 ok($LazyFrew::default_ran, 'default ran');
65 ok($LazyFrew::quoted_default_ran, 'quoted default ran');
66 ok(!$LazyFrew::builder_ran, 'builder has not run yet');
68 is($x->frioux, 'test frioux', 'frioux built correctly');
70 ok($LazyFrew::default_ran, 'default ran');
71 ok($LazyFrew::quoted_default_ran, 'quoted default ran');
72 ok($LazyFrew::builder_ran, 'builder ran');