File Coverage

blib/lib/Date/Calc/Iterator.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	13	24	54.1
condition	8	24	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	73	100	73.0

package Date::Calc::Iterator;

# $Id: Iterator.pm,v 1.2 2004/03/17 19:44:40 bronto Exp $

use 5.006;
use strict;
use warnings;

our @ISA = qw();

our $VERSION = '1.00';

use Date::Calc qw(Delta_Days Add_Delta_Days) ;

sub new {
  my $self  = shift ;
  my %parms = @_ ;

  my $class = ref $self || $self ;

  die "Need a start date" unless exists $parms{from} and ref $parms{from} eq 'ARRAY' ;
  die "Need an end date"  unless exists $parms{to}   and ref $parms{to}   eq 'ARRAY' ;
  die "Need an integer step"  if exists $parms{step} and not $parms{step} =~ /^\d+$/ ;

  _check_date($parms{from}) or die "Invalid start date" ;
  _check_date($parms{to})   or die "Invalid end date" ;

  $parms{step}     = 1 unless exists $parms{step} ;
  $parms{delta}    = 0 ;
  $parms{maxdelta} = Delta_Days(@{$parms{from}},@{$parms{to}}) ;

  my @object_keys = qw(from to step delta maxdelta) ;
  my %object_hash ;
  @object_hash{@object_keys} = @parms{@object_keys} ;
  return bless \%object_hash,$class ;
}

sub next {
  my $self = shift ;

  eval { $self->isa('Date::Calc::Iterator') } ;
  die "next() is an object method" if $@ ;

  return undef if $self->{delta} > $self->{maxdelta} ;

  my @next_date = Add_Delta_Days(@{$self->{from}},$self->{delta}) ;
  $self->{delta} += $self->{step} ;
  return wantarray ? @next_date : \@next_date ;
}

sub _check_date {
  my $date = shift ;
  my ($y,$m,$d) = @$date ;

  return undef unless $y =~ /^\d+$/ ;
  return undef unless $m =~ /^\d{1,2}$/ and $m >= 1 and $m <= 12 ;
  return undef unless $d =~ /^\d{1,2}$/ and $d >= 1 and $d <= 31 ;
}

1;
__END__