#!/usr/bin/perl -w
use strict;

use LazyBool;

my $foo = LazyBool->new;

print '$foo is ',
    defined $foo->{peek}() ? $foo->{peek}() : "not defined",
    '.',
    $/;

print $foo,$/;

print '$foo is ',
    defined $foo->{peek}()? $foo->{peek}() : "not defined",
    '.',
    $/;


=pod

$ perl lazybool.pl
$foo is not defined.
0
$foo is 0.
$ perl lazybool.pl
$foo is not defined.
0
$foo is 0.
$ perl lazybool.pl
$foo is not defined.
1
$foo is 1.

=cut