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.31
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 cover_gold
64 my ($base, $v) = $self->cover_gold;
65
66 Returns the absolute path of the base to the golden file and the suffix
67 version number.
68
69 $base comes from the name of the test and $v will be $] from the
70 earliest perl version for which the golden results should be the same
71 as for the current $]
72
73 run_command
74 $self->run_command($command)
75
76 Runs command, most likely obtained from "test_command" sub.
77
79 Huh?
80
82 Copyright 2001-2018, Paul Johnson (paul@pjcj.net)
83
84 This software is free. It is licensed under the same terms as Perl
85 itself.
86
87 The latest version of this software should be available from my
88 homepage: http://www.pjcj.net
89
90
91
92perl v5.28.1 2018-09-18 Devel::Cover::Test(3)