File Coverage

blib/lib/Lazy/Bool/Cached.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	2	2	100.0
total	45	46	97.8

package Lazy::Bool::Cached;

use 5.010000;
use strict;
use warnings;
use base 'Lazy::Bool';
use Exporter 'import';

our $VERSION   = '0.06';
our @EXPORT_OK = qw(lzbc);

sub lzbc(&) {
    my $code = shift;
    __PACKAGE__->new($code);
}

sub new {
    my ( $type, $code ) = @_;

    my $klass = ref($type) || $type;

    my $ref = ( ref($code) eq 'CODE' ) ? $code : sub { $code };

    bless {
        code   => $ref,
        cached => undef
    } => $klass;
}

use overload 'bool' => \&_to_bool;

sub _to_bool {
    my ($self) = @_;

    # Yes, we can use this:
    # $self->{cached} //= $self->{code}->()
    # but the // operator is only supported from Perl 5.10.0
    # And this module will be compatible with old versions

    $self->{cached} =
      ( defined $self->{cached} ) ? $self->{cached} : $self->{code}->();
}

1;

__END__