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 AND LICENSE

Copyright (C) 2006 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.