view release on metacpan or  search on metacpan

lib/Parse/Services.pm  view on Meta::CPAN

        local $/;
        $content = <$fh>;
    }

    my @res;
    for my $line (split /^/, $content) {
        $line =~ s/#.*//;
        next unless $line =~ /\S/;
        chomp $line;
        my ($name, $port_proto, @aliases) = split /\s+/, $line;
        my ($port, $proto) = split m!/!, $port_proto;
        push @res, {
            name  => $name,
            port  => $port,
            proto => $proto,
            aliases => \@aliases,
        };
    }
    [200, "OK", \@res];
}