File Coverage

blib/lib/XS/Install/PkgConfigFixed.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	19	19	100.0

package
    XS::Install::PkgConfigFixed;
use PkgConfig;

no warnings 'redefine';

my $orig_parse_line = \&PkgConfig::parse_line;
*PkgConfig::parse_line = sub {
    my $self = shift;
    my $line = shift;
    $line =~ s/[@]/^/g if $line =~ /=/;
    return $orig_parse_line->($self, $line, @_);
};

my $orig_assign_var = \&PkgConfig::assign_var;
*PkgConfig::assign_var = sub {
    my ($self, $field, $value) = (shift, shift, shift);
    $value =~ s/\^/\\\@/g;
    return $orig_assign_var->($self, $field, $value);
};

1;