The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

DateTime::Calendar::WarwickUniversity - Warwick University academic calendar

SYNOPSIS

  use DateTime::Calendar::WarwickUniversity;

  my $dt = DateTime::Calendar::WarwickUniversity->new(
        year  => 2007,
        month => 01,
        day   => 8,
  );

  # 15
  print $dt->academic_week;

  # 11
  print $dt->term_week;

  # 2, 1
  print join(', ', $dt->term_and_week);

DESCRIPTION

DateTime::Calendar::WarwickUniversity is used for working with the academic calendar in use at the University of Warwick.

academic_week

Takes no argument.

Returns the academic week for the current object, in the range 1..53.

term_and_week

Takes no argument.

Returns a list ($term, $week) for the current object. $term is either in the range 1..3, or one of 'C', 'E' or 'S', representing the Christmas, Easter and Summer holidays. $week is in the range 1..10.

term_week

Takes no argument.

Returns the term week for the current object, in the range 1..30, or undef if the date does not fall within a term week.

SEE ALSO

DateTime, DateTime::Event::WarwickUniversity

AUTHOR

Tim Retout <tim@retout.co.uk>

COPYRIGHT

Copyright (C) 2006, 2007 by Tim Retout

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.