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;

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__