"'$key' is not a valid config option for Inline::Foo\n";
"Invalid value for Inline::Foo config option BAR";
$o->{ILSM
}{PATTERN
} ||= 'foo-';
my ($key, $value) = splice @_, 0, 2;
$o->{ILSM
}{PATTERN
} = $value;
unless $value =~ /^[01]$/;
$o->{ILSM
}{BAR
} = $value;
croak usage_config
($key);
my $code = $o->{API
}{code
};
my $pattern = $o->{ILSM
}{PATTERN
};
$code =~ s/bar-//g if $o->{ILSM
}{BAR
};
sleep 1; # imitate compile delay
croak
"Foo build failed:\n$@" if $@
;
my $path = File
::Spec
->catdir($o->{API
}{install_lib
},'auto',$o->{API
}{modpname
});
my $obj = $o->{API
}{location
};
$o->mkpath($path) unless -d
$path;
or croak
"Can't open $obj for output\n$!";
my $obj = $o->{API
}{location
};
or croak
"Can't open $obj for output\n$!";
my $code = join '', <FOO_OBJ
>;
eval "package $o->{API}{pkg};\n$code";
croak
"Unable to load Foo module $obj:\n$@" if $@
;