view release on metacpan or  search on metacpan

lib/ExtUtils/PkgConfig.pm  view on Meta::CPAN

}

sub max_version
{
  my(undef, $modulename, $version) = @_;
  my $package = _find($modulename);
  $package && (_compare_version($version, $package->version) >= 0 )
  ? 1 : undef;
}

sub _escape
{
  my($fragment) = "$_[0]";
  $fragment =~ s/(\s)/\\$1/g;
  $fragment;
}

sub cflags_only_I
{
  my(undef, $modulename) = @_;
  my $package = _find($modulename);
  $package ? join(' ', map { _escape $_ } grep { $_->type eq 'I' } $package->list_cflags) . ' ' : undef;
}

sub cflags_only_other
{
  my(undef, $modulename) = @_;
  my $package = _find($modulename);
  $package ? join(' ', map { _escape $_ } grep { $_->type ne 'I' } $package->list_cflags) . ' ' : undef;
}

sub libs_only_L
{
  my(undef, $modulename) = @_;
  my $package = _find($modulename);
  $package ? join(' ', map { _escape $_ } grep { $_->type eq 'L' } $package->list_libs) . ' ' : undef;
}

sub libs_only_l
{
  my(undef, $modulename) = @_;
  my $package = _find($modulename);
  $package ? join(' ', map { _escape $_ } grep { $_->type eq 'l' } $package->list_libs) . ' ' : undef;
}

sub libs_only_other
{
  my(undef, $modulename) = @_;
  my $package = _find($modulename);
  $package ? join(' ', map { _escape $_ } grep { $_->type ne 'L' && $_->type ne 'l' } $package->list_libs) . ' ' : undef;
}

sub variable
{
  my(undef, $modulename, $key) = @_;
  my $package = _find($modulename);
  my $value;
  $value = $package->variable($key) if $package;
  $value;
}