File Coverage

blib/lib/Lazy/Util/OO.pm

Criterion	Covered	Total	%
statement	29	39	74.3
branch	8	12	66.6
condition	1	3	33.3
subroutine	8	11	72.7
pod	4	4	100.0
total	50	69	72.4

use strict;
use warnings;

package Lazy::Util::OO;
$Lazy::Util::OO::VERSION = '0.002';
#ABSTRACT: Objects encapsulating a set of lazy evaluation functions.


use Carp qw/ croak /;
use Scalar::Util qw/ blessed /;

use constant SCALAR_DEFER => eval { require Scalar::Defer; 1 };

sub _isa { defined blessed $_[0] and $_[0]->isa($_[1]); }


sub new {
  my ($class, $source) = @_;

  if (SCALAR_DEFER and _isa($source, 0)) {
    my $sd = $source;
    $source = sub { Scalar::Defer::force $sd };
  }

  croak "Not a CODE reference: $source" if ref $source ne 'CODE';

  return bless {code => $source, exhausted => 0}, $class;
}


sub exhausted {
  my $self = shift;

  $self->{get} = $self->get();

  return $self->{exhausted};
}


sub get {
  my $self = shift;

  return delete $self->{get} if exists $self->{get};

  return undef if $self->{exhausted};

  my $ret = $self->{code}->();
  $self->{exhausted} = 1 if not defined $ret;

  return $ret;
}


sub get_all {
  my $self = shift;

  my @res;
  while (defined(my $get = $self->get())) { push @res, $get; }

  return @res;
}

1;

__END__