view release on metacpan or  search on metacpan

Gateway.pm  view on Meta::CPAN

    $self->_init_ua		or return;
    $self->_init_path		or return;
    return 1;			# succeeded
}

=item $gw->site_list

Get the list of sites to try for this request.  Can be overridden to
customize the list of sites to try.

By default, this method looks through the LocationMatch sections in
the GatewayConfig file in order and returns the sites in the first
section matched.

=cut

sub site_list($) {
    my $self = shift;
    my $location_conf = $self->location_config;
    my $gw_path = $self->{GW_PATH};
    foreach my $entry (@{$location_conf->{LOCATION}}) {