Reading database from ...
--------------- ------ ------ ------ ------ ------
File stmt bran cond sub total
--------------- ------ ------ ------ ------ ------
tests/signature 100.0 50.0 n/a 100.0 95.8
Total 100.0 50.0 n/a 100.0 95.8
--------------- ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/signature
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2019-2026, Paul Johnson (paul@pjcj.net)
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # https://pjcj.net
9
10 # __COVER__ skip_test $] < 5.032
11 # __COVER__ skip_reason Too fragile below 5.32
12
13 1 1 use 5.20.0;
1
14 1 1 use warnings;
1
1
15 1 1 use experimental "signatures";
1
1
16
17 1 1 sub xx ($p, $q, $r, $s = 6, @t) {
1
1
1
1
1
1
18 1 $p + $q + $r + $s + @t
19 }
20
21 1 my $x = xx(3, 4, 5);
22 *** 1 * 50 die unless $x == 18;
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
22 *** 50 0 1 unless $x == 18
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ------------------
BEGIN 1 tests/signature:13
BEGIN 1 tests/signature:14
BEGIN 1 tests/signature:15
xx 1 tests/signature:17