File Coverage

blib/lib/WWW/PTV/TimeTable/Schedule.pm

Criterion	Covered	Total	%
statement	6	47	12.7
branch	0	12	0.0
condition	0	13	0.0
subroutine	2	8	25.0
pod	5	6	83.3
total	13	86	15.1

package WWW::PTV::TimeTable::Schedule;

use strict;
use warnings;

our $VERSION = '0.06';

sub new {
	my ($class, $schedule) = @_;
	my $self = bless {}, $class;
	$self->{schedule} = $schedule;
	return $self
}

sub as_list {
	return @{ $_[0]->{schedule} };
}

sub next {
	my ($self, $n, $i) = @_;
	$n ||= 1;
	$i ||= 0;
	my(@res,$c,$l);
	my($h,$m) = (localtime(time))[2,1];

	foreach my $t ( @{ $self->{schedule} } ) {
		$l++;
		my($nh,$nm) = split /:/, $t;
		$nm and $nh ne '-' or next;

		if( ($nh > $h) ||
		    ($nh >= $h && $nm >= $m) ) {
			push @res, [$nh,$nm];

			if( $i == 7 ) {
				return $l-1
			}
			if( ++$c == $n ) {
				return ( ~~@res == 1
					? $res[0]
					: \@res )
			}
		}
	}

	return ( @res ? \@res : 0 )
}

sub index_of_next {
	return $_[0]->next(1,7)
}

sub next_five {
	return $_[0]->next(5)
}

sub pretty_print {
	my $self= shift;
	my @t	= localtime(time);
	my $i	= $self->index_of_next;
	my @s	= $self->as_list;
	my $n	= $s[$i];
	my @d	= qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday
		     Sunday);
	my @m	= qw(January February March April May June July August September
		     October November December);
	printf("Current local time and date is: %s %s %s %02d:%02d %s\n",
		$d[$t[6]], $t[3], $m[$t[4]], $t[2], $t[1], ($t[5]+1900));
	@s	= map { sprintf("| %-6s |\n", $_ ) } @s;
	$s[$i]	= "===== Next service =====\n"
		. "        $n\n"
		. "========================\n";
	@s	= grep { /:/ } @s;
	push @s, ""; unshift @s, "";
	print join "+--------+\n", @s;
}

1;

__END__