File Coverage

blib/lib/WWW/PTV/Area.pm

Criterion	Covered	Total	%
statement	6	43	13.9
branch	0	6	0.0
condition			n/a
subroutine	2	12	16.6
pod	9	10	90.0
total	17	71	23.9

package WWW::PTV::Area;

use strict;
use warnings;

our $VERSION = '0.05';

sub new {
	my ($class, %args) = @_;
	my $self = bless {}, $class;
	$self->{id}	= $args{id};
	$self->{name}	= $args{name};
	$self->{suburbs}= $args{suburbs};
	$self->{service}= $args{service};
	return $self
}

sub id {
	return $_[0]->{id}
}

sub name {
	return $_[0]->{name}
}

sub suburbs {
	return $_[0]->{suburbs}
}

sub towns {
	$_[0]->suburbs
}

sub service_types {
	return keys %{ $_[0]->{service}{names} }
}

sub service_names {
	return $_[0]->{service}{names}
}

sub service_links {
	return $_[0]->{service}{links}
}

sub services {
	my $self = shift;
	my @res;
	my $service_names = $self->service_names;
	my $service_links = $self->service_links;

	# { name => 'Name', link => 'link', type => 'Type' }
	foreach my $type ( $self->service_types ) {
		my $c = 0;
		my $r;

		foreach my $service ( @{ $service_names->{$type} } ) {
			my $r = { type => $type,
				  name => @{ $service_names->{ $type } }[ $c ],
				  link => @{ $service_links->{ $type } }[ $c ] };
			push @res, $r;
			$c++;
		}
	}

	return @res;
}

sub services_like {
	my ( $self, %args ) = @_;
	$args{type} or return grep { $_->{name} =~ /$args{name}/i } $self->services;
	$args{name} or return grep { $_->{type} =~ /$args{type}/i } $self->services;

	return grep {  	  $_->{type} =~ /$args{type}/i
		      and $_->{name} =~ /$args{name}/i
	       } $self->services
}

1;

__END__