File Coverage

blib/lib/App/mkpkgconfig/PkgConfig/Entry.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	44	44	100.0

package App::mkpkgconfig::PkgConfig::Entry;
use strict;
use warnings;

# ABSTRACT: Base class for PkgConfig Keywords and Variables

use Syntax::Construct qw( non-destructive-subst );

our $VERSION = 'v2.0.1';

use Regexp::Common 'balanced';









sub new {
    my ( $class, $name, $value ) = @_;

    bless { name => $name,
            value => $value,
            depends => _parse_dependencies( $value ),
            }, $class;
}







sub name            { return $_[0]->{name} }







sub value           { return $_[0]->{value} }









sub depends         { return @{ $_[0]->{depends} } }

sub _parse_dependencies {
    my @depends =
            map { s/(?:^[{])|(?:[}]$)//gr }
            $_[0] =~ /(? '{}'}/g;

    my %depends;
    @depends{@depends} = ();

    return [ keys %depends ];
}

package App::mkpkgconfig::PkgConfig::Entry::Variable;

use parent -norequire => 'App::mkpkgconfig::PkgConfig::Entry';

package App::mkpkgconfig::PkgConfig::Entry::Keyword;

use parent -norequire => 'App::mkpkgconfig::PkgConfig::Entry';

1;

#
# This file is part of App-mkpkgconfig
#
# This software is Copyright (c) 2020 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__