view release on metacpan or  search on metacpan

bin/biorhythm  view on Meta::CPAN

  name     => $ENV{USER} || 'you',
  birthday => $__birthday,
  day      => $__day
});

my ($begin, $end) = split(':', $__range);

die "positive integers please" if ($begin < 0);
die "positive integers please" if ($end   < 0);

my $iterations = 1;

print "# $__birthday\n";
print "# $__day\n";

print "  {\n";
if ($begin) {
  $biorhythm->day($biorhythm->day - $begin);
  for (1 .. $begin) {
    print_day($biorhythm);
    $biorhythm->next;