File Coverage

blib/lib/WWW/PTV/Stop.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	6	0.0
condition			n/a
subroutine	4	9	44.4
pod	3	4	75.0
total	19	49	38.7

package WWW::PTV::Stop;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.06';

our @ATTR = qw(		address bicycle_cage bicycle_lockers bicycle_racks car_parking
			escalator hearing_loop id latitude lift lighting lines
			locality lockers longitude map_ref municipiality municipiality_id
			myki_checks myki_machines phone_feedback phone_station postcode
			public_phone public_toilet routes seating staff_hours stairs street
			tactile_paths taxi_rank transport_type vline_bookings waiting_area_indoor
			waiting_area_sheltered wheelchair_accessible zone );

foreach my $attr ( @ATTR ) {
	{
		no strict 'refs';
		*{ __PACKAGE__ .'::'. $attr } = sub {
			my( $self, $val ) = @_;
			$self->{$attr} = $val if $val;
			return $self->{$attr}
		}
	}
}

sub new {
	my( $class, %args ) = @_;
	my $self = bless {}, $class;
	$args{id} or croak 'Constructor failed: mandatory id argument not supplied';

	foreach my $attr ( @ATTR ) { $self->{$attr} = $args{$attr} }

	return $self
}

sub get_route_names {
	map { $_->{name} } @{ $_[0]->{routes} }
}

sub get_route_ids {
	map { $_->{id} } @{ $_[0]->{routes} }
}

sub get_routes {
	my $self = shift;
	return wantarray
		? @{ $self->{routes} }
		: $self->{routes}
}

1;

__END__