view release on metacpan or  search on metacpan

lib/URI/AnyService.pm  view on Meta::CPAN

        $fh = \*DATA;
        $found_services_in = '<DATA>';
    }

    while (my $line = <$fh>) {
        next if $line =~ /^#/;
        $line =~ s/#.*$//;
        next unless ($line // '') =~ /^$URI::scheme_re\s+/;

        my ($service, $port_proto, @other_services) = split /\s+/, $line;
        my ($port, $proto) = split m!/!, $port_proto;
        $SERVICE_PORTS{$service}        = $port;
        $SERVICE_PORTS{@other_services} = $port if @other_services;
    }
    close $fh;
}

sub import {
    my ($class, @opts) = @_;
    $force_internal_services_data = 1 if grep { $_ eq ':InternalServicesData' } @opts;
    _load_services();