Devel::Cover::Test(3) User Contributed Perl Documentation Devel::Cover::Test(3)

# [NAME](#NAME)

Devel::Cover::Test - Internal module for testing

# [METHODS](#METHODS)

## [new](#new)

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

## [shell\_quote](#shell_quote)

```
  my $quoted_item = shell_quote($item)
```

Returns properly quoted item to cope with embedded spaces.

## [perl](#perl)

```
  my $perl = $self->perl
```

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

## [test\_command](#test_command)

```
  my $command = $self->test_command
```

Returns test command, made of:

[absolute path to Perl interpreter](#absolute)

[Devel::Cover -M option (if applicable)](#Devel::Cover)

[test file](#test)

[test file parameters (if applicable)](#test~2)

## [cover\_command](#cover_command)

```
  my $command = $self->cover_command
```

Returns test command, made of:

[absolute path to Perl interpreter](#absolute~2)

[absolute path to cover script](#absolute~3)

[cover parameters](#cover)

## [test\_file](#test_file)

```
  my $file = $self->test_file
```

Returns absolute path to test file.

## [test\_file\_parameters](#test_file_parameters)

```
  my $parameters = $self->test_file_parameters
```

Accessor to test\_file\_parameters property.

## [get\_params](#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](#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 is at version > 1.999806, then the version of Perl will be overridden as though it is 5.26.

## [run\_command](#run_command)

```
  $self->run_command($command)
```

Runs command, most likely obtained from "test\_command" sub.

# [LICENCE](#LICENCE)

Copyright 2001-2026, 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: https://pjcj.net

2026-08-30 perl v5.44.0

---

Document: Devel::Cover::Test(3pm) from perl-devel-cover 1.52-r5 (Chainguard OS)
Source: https://github.com/pjcj/Devel--Cover