File Coverage

blib/lib/Finance/GeniusTrader/DateTime/5Min.pm

Criterion	Covered	Total	%
statement	12	46	26.0
branch	0	44	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	98	16.3

package Finance::GeniusTrader::DateTime::5Min;

# Copyright 2000-2002 Raphaël Hertzog, Fabien Fulhaber
# Copyright 2005 João Antunes Costa
# This file is distributed under the terms of the General Public License
# version 2 or (at your option) any later version.

use strict;
use vars qw();

use Finance::GeniusTrader::DateTime;
use Time::Local;

=head1 Finance::GeniusTrader::DateTime::5Min

This module treat dates describing a 5 minute period. They have the following format :
YYYY-MM-DD HH:NN:00

=cut
sub map_date_to_time {
    my ($value) = @_;
	my ($date, $time) = split / /, $value;
    my ($y, $m, $d) = split /-/, $date;
	my ($h, $n, ) = split /:/, $time;
	if ($n >=55) {$n=55}
	elsif ($n>=50) {$n=50}
	elsif ($n>=45) {$n=45}
	elsif ($n>=40) {$n=40}
	elsif ($n>=35) {$n=35}
	elsif ($n>=30) {$n=30}
	elsif ($n>=25) {$n=25}
	elsif ($n>=20) {$n=20}
	elsif ($n>=15) {$n=15}
	elsif ($n>=10) {$n=10}
	elsif ($n>=5) {$n=5}
	else {$n=0}
    return timelocal(0, $n, $h, $d, $m - 1, $y - 1900);
}

sub map_time_to_date {
    my ($time) = @_;
    my ($sec, $min, $hour, $d, $m, $y, $wd, $yd) = localtime($time);
	if ($min>=55) {$min=55;}
	elsif ($min>=50) {$min=50;}
	elsif ($min>=45) {$min=45;}
	elsif ($min>=40) {$min=40;}
	elsif ($min>=35) {$min=35;}
	elsif ($min>=30) {$min=30;}
	elsif ($min>=25) {$min=25;}
	elsif ($min>=20) {$min=20;}
	elsif ($min>=15) {$min=15;}
	elsif ($min>=10) {$min=10;}
	elsif ($min>=5) {$min=5;}
	else {$min=0;}
    return sprintf("%04d-%02d-%02d %02d:%02d:00", $y + 1900, $m + 1, $d, $hour, $min);
}

1;