1Devel::Cover::Test(3) User Contributed Perl DocumentationDevel::Cover::Test(3)
2
3
4
6 Devel::Cover::Test - Internal module for testing
7
9 version 1.33
10
12 new
13 my $test = Devel::Cover::Test->new($test, criteria => $string)
14
15 Constructor.
16
17 "criteria" parameter (optional, defaults to "statement branch condition
18 subroutine") is a space separated list of tokens. Supported tokens are
19 "statement", "branch", "condition", "subroutine" and "pod".
20
21 More optional parameters are supported. Refer to "get_params" sub.
22
23 shell_quote
24 my $quoted_item = shell_quote($item)
25
26 Returns properly quoted item to cope with embedded spaces.
27
28 perl
29 my $perl = $self->perl
30
31 Returns absolute path to Perl interpreter with proper -I options (blib-
32 wise).
33
34 test_command
35 my $command = $self->test_command
36
37 Returns test command, made of:
38
39 absolute path to Perl interpreter
40 Devel::Cover -M option (if applicable)
41 test file
42 test file parameters (if applicable)
43
44 cover_command
45 my $command = $self->cover_command
46
47 Returns test command, made of:
48
49 absolute path to Perl interpreter
50 absolute path to cover script
51 cover parameters
52
53 test_file
54 my $file = $self->test_file
55
56 Returns absolute path to test file.
57
58 test_file_parameters
59 my $parameters = $self->test_file_parameters
60
61 Accessor to test_file_parameters property.
62
63 get_params
64 Populates the keys "criteria", "select", "test_parameters", "db_name",
65 "cover_db", "cover_parameters" and "skip" using the "test_file" if
66 available otherwise sets the default.
67
68 cover_gold
69 my ($base, $v) = $self->cover_gold;
70
71 Returns the absolute path of the base to the golden file and the suffix
72 version number.
73
74 $base comes from the name of the test and $v will be $] from the
75 earliest perl version for which the golden results should be the same
76 as for the current $]
77
78 $v will be overridden if installed libraries' versions dictate; for
79 instance, if Math::BigInt is at version > 1.999806, then the version of
80 Perl will be overridden as though it is 5.26.
81
82 run_command
83 $self->run_command($command)
84
85 Runs command, most likely obtained from "test_command" sub.
86
88 Huh?
89
91 Copyright 2001-2019, Paul Johnson (paul@pjcj.net)
92
93 This software is free. It is licensed under the same terms as Perl
94 itself.
95
96 The latest version of this software should be available from my
97 homepage: http://www.pjcj.net
98
99
100
101perl v5.30.0 2019-07-26 Devel::Cover::Test(3)