first idea

1 files changed, 32 insertions, 0 deletions

diff --git a/lib/DateTime/Format/GeekTime.pm b/lib/DateTime/Format/GeekTime.pm
new file mode 100644
index 0000000..534e86a
--- /dev/null
+++ b/lib/DateTime/Format/GeekTime.pm
@@ -0,0 +1,32 @@
+package DateTime::Format::GeekTime;
+use strict;
+use warnings;
+use DateTime;
+use vars '$VERSION';
+
+$VERSION='1.000_001';
+$VERSION=eval $VERSION;
+
+sub parse_datetime {
+    my ($self,$string)=@_;
+}
+
+sub format_datetime {
+    my ($self,$dt)=@_;
+
+    my $start_of_day=$dt->clone->truncate(to=>'day')->set_time_zone('UTC');
+    my $start_of_year=$dt->clone->truncate(to=>'year')->set_time_zone('UTC');
+
+    my $seconds=$dt->subtract_datetime_absolute($start_of_day)->in_units('seconds');
+    my $days=$dt->subtract_datetime_absolute($start_of_year)->in_units('days');
+
+    $seconds*=(65_536/86_400);
+
+    my $chr=eval { chr($seconds) };
+    if (!defined $chr) {$chr=''}
+    else {$chr=" $chr"};
+
+    return sprintf '0x%04X 0x%04X%s',$seconds,$days,chr($seconds);
+}
+
+1;