From 127d5b5fb83b13e565decef93a9a3e7d4b167e19 Mon Sep 17 00:00:00 2001
From: Dominik Meyer <dmeyer@federationhq.de>
Date: Mon, 24 Oct 2011 20:24:38 +0200
Subject: [PATCH] Initial commit of this module

---
 DateTime/Week.pm | 110 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 DateTime/Week.pm

diff --git a/DateTime/Week.pm b/DateTime/Week.pm
new file mode 100644
index 0000000..d50b493
--- /dev/null
+++ b/DateTime/Week.pm
@@ -0,0 +1,110 @@
+#===============================================================================
+#
+#  FILE:        Week.pm
+#
+#  DESCRIPTION: Creates DateTime Objects according to a given week,year and weekday combination
+#
+#  AUTHOR:      Dominik Meyer <dmeyer@federationhq.de>
+#  VERSION:     0.0.1
+#  CREATED:     24.10.2011 19:33:57 CET
+#===============================================================================
+package DateTime::Week;
+use Moose;
+use DateTime;
+
+# class attributes
+has 'year' => (is => 'rw', isa => 'Int',required => 1);
+has 'week' => (is => 'rw', isa => 'Int',required => 1);
+has 'weekday' => (is => 'rw', isa => 'Int',required => 1);
+
+# return datetime object 
+sub get_date {
+    my $self=shift;
+    
+    # first get us the 4th january of the required year because it is always
+    # in the first week of the year
+    # http://www.salesianer.de/util/kalwoch.html    
+    my $dt = DateTime->new(
+             year       => $self->year,
+             month      => 1,
+             day        => 4,
+         ); 
+         
+    # lets look which weekday we got
+    my $dow    = $dt->day_of_week;    # 1-7 (Monday is 1)     
+    
+    #adjust day
+    if ($dow > $self->weekday) {
+      $dt->subtract(days=>$dow-$self->weekday);  
+    } elsif ($dow < $self->weekday) {
+      $dt->add(days=>$self->weekday-$dow);  
+    }
+    
+    #now adjust weeks
+    $dt->add(days => ($self->week-1)*7);
+    
+    return $dt;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+DateTime::Week - Creates DateTime Objects according to a given week,year and weekday combination
+
+=head1 VERSION
+
+This documentation refers to DateTime::Week version 0.0.1.
+
+=head1 SYNOPSIS
+
+   use DateTime::Week;
+
+   my $dt_week = DateTime::Week->new( 'year'    => 2011,
+                                      'week'    => 6,
+                                      'weekday' => 1
+    );
+    
+    print $dt_week->get_date()->dmy();  # generate the dt object and output it in dmy format
+
+=head1 DESCRIPTION
+
+This Class just calculates a date from a given year, week and weekday set.
+
+=head1 SUBROUTINES/METHODS
+
+=head2 get_date
+    
+just returns the DateTime Object
+
+=head1 DEPENDENCIES
+
+    Moose
+    DateTime
+
+=head1 INCOMPATIBILITIES
+
+none known yet
+
+=head1 BUGS AND LIMITATIONS
+
+none known yet
+
+=head1 AUTHOR
+
+Dominik Meyer  (dmeyer@federationhq.de)
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright (c) 2011 Dominik Meyer (dmeyer@federationhq.de).
+All rights reserved.
+
+This is free software, licensed under: GPLv2
+
+
+
+
+
+
+