# phpman > man > Devel::Cover::Test

## NAME
    [Devel::Cover::Test](https://www.chedong.com/phpMan.php/perldoc/Devel%3A%3ACover%3A%3ATest/markdown) - Internal module for testing

## VERSION
    version 1.36

## METHODS
  new
      my $test = [Devel::Cover::Test](https://www.chedong.com/phpMan.php/perldoc/Devel%3A%3ACover%3A%3ATest/markdown)->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.

  shell_quote
      my $quoted_item = shell_quote($item)

    Returns properly quoted item to cope with embedded spaces.

  perl
      my $perl = $self->perl

    Returns absolute path to Perl interpreter with proper -I options (blib-wise).

  test_command
      my $command = $self->test_command

    Returns test command, made of:

    absolute path to Perl interpreter
    [Devel::Cover](https://www.chedong.com/phpMan.php/perldoc/Devel%3A%3ACover/markdown) -M option (if applicable)
    test file
    test file parameters (if applicable)

  cover_command
      my $command = $self->cover_command

    Returns test command, made of:

    absolute path to Perl interpreter
    absolute path to cover script
    cover parameters

  test_file
      my $file = $self->test_file

    Returns absolute path to test file.

  test_file_parameters
      my $parameters = $self->test_file_parameters

    Accessor to test_file_parameters property.

  get_params
    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.

  cover_gold
      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](https://www.chedong.com/phpMan.php/perldoc/Math%3A%3ABigInt/markdown) is
    at version > 1.999806, then the version of Perl will be overridden as though it is 5.26.

  run_command
      $self->run_command($command)

    Runs command, most likely obtained from "test_command" sub.

## BUGS
    Huh?

## LICENCE
    Copyright 2001-2019, Paul Johnson (<paul@pjcj.net>)

    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>