File Coverage

blib/lib/Colon/Config.pm

Criterion	Covered	Total	%
statement	13	16	81.2
branch	1	2	50.0
condition			n/a
subroutine	4	5	80.0
pod	1	2	50.0
total	19	25	76.0

# Copyright (c) 2018, cPanel, LLC.
# All rights reserved.
# http://cpanel.net
#
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself. See L.

package Colon::Config;

use strict;
use warnings;

# ABSTRACT: XS helper to read a configuration file using ':' as separator


BEGIN {

    our $VERSION = '0.002'; # VERSION: generated by DZP::OurPkgVersion

    require XSLoader;
    XSLoader::load(__PACKAGE__);
}

sub read_pp {
    my ( $config ) = @_;

    return [ map { ( split( m{:\s+}, $_ ) )[ 0, 1 ] } split( m{\n}, $config ) ];
}

sub read_as_hash {
    my ( $config ) = @_;

    my $av = Colon::Config::read($config);
    return unless $av;

    return { @$av };
}


1;

__END__