File Coverage

blib/lib/WWW/PTV/TimeTable.pm

Criterion	Covered	Total	%
statement	12	65	18.4
branch	0	6	0.0
condition	0	2	0.0
subroutine	4	11	36.3
pod	6	7	85.7
total	22	91	24.1

package WWW::PTV::TimeTable;

use strict;
use warnings;

use WWW::PTV::TimeTable::Schedule;
use Carp qw(croak);

our $VERSION = '0.05';

our @ATTR = qw( route_id direction direction_desc name );

sub new {
	my($class, $stop_names, $stop_ids, $stop_times) = @_;
	my $self = bless {}, $class;
	$self->{stop_names} 	= $stop_names;
	$self->{stop_ids}	= $stop_ids;
	$self->{stop_times}	= $stop_times;
	@{ $self->{map} }{ @{ $self->{stop_ids} } } = @{ $self->{stop_times} };
	return $self
}

sub stop_ids {
	return @{ $_[0]->{stop_ids} }
}

sub stop_names {
	return @{ $_[0]->{stop_names} }
}

sub stop_names_and_ids {
	my ($self, $type) = @_;
	$type ||= 'array';
	$type = 'array' unless $type =~ /^(array|hash)$/;
	my @n = @{$self->{stop_names}};
	my @i = @{$self->{stop_ids}};
	my $c = 0;
	return map { [ $_, $n[$c++] ] } @i
}

sub get_schedule_by_stop_id {
	defined $_[0]->{map}{$_[1]}
	and return WWW::PTV::TimeTable::Schedule->new( $_[0]->{map}{$_[1]} )
}

sub get_schedule_by_stop_name {
	my ($self, $stop) = @_;
	my $c = 0;
	# This is really ugly - but we need to use the index of the matching
	# stop name as a hash key to retrieve the stop times from the map
	map { /$stop/i and return
		WWW::PTV::TimeTable::Schedule->new(
			$self->{map}{ @{ $self->{stop_ids} }[$c]}
		);
		$c++
	} @{ $self->{stop_names} };
}

sub pretty_print {
	my $self= shift;
	my @t	= localtime(time);
	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));
	my $c = 0;

	foreach my $s ( @{ $self->{stop_times} } ) {
		printf( "| %-50s |", @{ $self->{stop_names} }[$c] );
		map { printf( "%5s|", $_ ) } @{ @{ $self->{stop_times} }[$c] };
		print "\n+";
		my $l = ( 54 + ( 7 * scalar @{ @{ $self->{stop_times} }[$c] } ) ) - 2;
		print "-"x$l;
		print "+\n";
		$c++;
	}
}

1;

__END__