Devel::Cover::Test − Internal module for testing
version 1.40
my $test = Devel::Cover::Test−>new($test, criteria => $string)
Constructor.
"criteria" parameter (optional, defaults to "statement branch condition subroutine") is a space separated list of tokens. Supported tokens are "statement", "branch", "condition", "subroutine" and "pod".
More optional parameters are supported. Refer to "get_params" sub.
my $quoted_item = shell_quote($item)
Returns properly quoted item to cope with embedded spaces.
my $perl = $self−>perl
Returns absolute path to Perl interpreter with proper −I options (blib-wise).
my $command = $self−>test_command
Returns test
command, made of:
absolute path to Perl interpreter
Devel::Cover −M option (if applicable)
test file
test file parameters (if applicable)
my $command = $self−>cover_command
Returns test
command, made of:
absolute path to Perl interpreter
absolute path to cover script
cover parameters
my $file = $self−>test_file
Returns absolute path to test file.
my $parameters = $self−>test_file_parameters
Accessor to test_file_parameters property.
Populates the keys "criteria", "select", "test_parameters", "db_name", "cover_db", "cover_parameters" and "skip" using the "test_file" if available otherwise sets the default.
my ($base, $v) = $self−>cover_gold;
Returns the absolute path of the base to the golden file and the suffix version number.
$base comes from the name of the test and $v will be $] from the earliest perl version for which the golden results should be the same as for the current $]
$v will be overridden if installed libraries’ versions dictate; for instance, if Math::BigInt is at version > 1.999806, then the version of Perl will be overridden as though it is 5.26.
$self−>run_command($command)
Runs command, most likely obtained from "test_command" sub.
Huh?
Copyright 2001−2023, Paul Johnson ([email protected])
This software is free. It is licensed under the same terms as Perl itself.
The latest version of this software should be available from my homepage: http://www.pjcj.net