---
name: "Devel::Cover::Test"
section: "3pm"
platform: "linux"
package: "perl-devel-cover"
version: "1.52-2"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Devel::Cover::Test"
---

# Devel::Cover::Test(3pm)

Internal module for testing

## NAME

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

## VERSION

version 1.52

## METHODS

### 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

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

## 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