View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Tatsuhiko Miyagawa > Date-Range-Birth-0.02 > Date::Range::Birth



Annotate this POD

View/Report Bugs
Module Version: 0.02   Source  


Date::Range::Birth - range of birthday for an age


  use Date::Range::Birth;

  # birthday for those who are 24 years old now
  my $range = Date::Range::Birth->new(24);

  # birthday for those who are 24 years old in 2001-01-01
  my $date   = Date::Simple->new(2001, 1, 1);
  my $range2 = Date::Range::Birth->new(24, $date);

  # birthday for those who are between 20 and 30 yeard old now
  my $range3 = Date::Range::Birth->new([ 20, 30 ]);


Date::Range::Birth is a subclass of Date::Range, which provides a way to construct range of dates for birthday.


  $range = Date::Range::Birth->new($age);
  $range = Date::Range::Birth->new($age, $date);
  $range = Date::Range::Birth->new([ $young, $old ]);
  $range = Date::Range::Birth->new([ $young, $old ], $date);

returns Date::Range::Birth object for birthday of the age. If $date (Date::Simple object) provided, returns range of birthday for those who are $age years old in $date. Default is today (now).

If the age is provided as array reference (like [ $young, $old ]), returns range of birthday for those who are between $young - $old years old. It may be handy for searching teenagers, etc.

Other methods are inherited from Date::Range. See Date::Range for details.


Your customer database schema:

  CREATE TABLE customer (
      name     varchar(64) NOT NULL,
      birthday date NOT NULL

What you should do is to select name and birthday of the customers who are 2X years old (between 20 and 29).

  use DBI;
  use Date::Range::Birth;

  my $dbh = DBI->connect( ... );
  my $range = Date::Range::Birth->new([ 20, 29 ]);

  my $sth = $dbh->prepare(<<'SQL')
  SELECT name, birthday FROM customer WHERE birthday >= ? AND birthday <= ?

  # Date::Simple overloads to 'yyyy-mm-dd'!
  $sth->execute($range->start, $range->end);

  while (my $data = $sth->fetchrow_arrayref) {
      print "name: $data->[0] birthday: $data->[1]\n";


Original idea by ikechin <>

Code implemented by Tatsuhiko Miyagawa <>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


Date::Range, Date::Simple, Date::Calc

syntax highlighting: