Wie markiert man `//` Bedingungen mit Devel: :: Cover?

Question

Ich habe die folgende Logik:

sub test { 
    my ($x, $y) = @_; 
    die unless defined $x || defined $y; 
    # uncoverable condition false 
    return $x // $y; 
} 

test(1,  2 ); 
test(1,  undef); 
test(undef, 2 ); 
test(undef, undef); 

Die return Anweisung wird nie für den Zustand abgedeckt werden, wo $x und $y beide nicht definiert sind. So ist die Berichterstattung Bericht weist darauf hin, dass diese Bedingung als ungedeckt:

% | coverage | condition 
------------------------------ 
    67 | A | B | dec | $x // $y 
    |-------------| 
===> | 0 | 0 | 0 | 
    | 0 | 1 | 1 | 
    | 1 | X | 1 | 

Gibt es eine Möglichkeit für mich, diesen Zustand als uncoverable zu markieren? Hinzufügen von uncoverable condition false über der Linie behebt die Coverage-Zusammenfassung, aber wenn ich auf die Details schaue, ist die Bedingungsabdeckung immer noch bei 67%.

Funktioniert Devel :: Cover den Operator //?

---

Auf einer anderen Anmerkung, wenn ich die die Linie auf das Äquivalent zu ändern:

die "died" if !defined $x && !defined $y; 

, die auch die Leitung wird 67% gedeckt.

% | coverage | condition 
------------------------------ 
    67 | A | B | dec | defined $x or defined $y 
    |-------------| 
    | 0 | 0 | 0 | 
===> | 0 | 1 | 1 | 
    | 1 | X | 1 | 

Könnte das ein Fehler sein?

Answer 1

Das macht keinen Sinn. // hat nur zwei Pfade ($x ist definiert, $x ist nicht definiert). $y ist nicht relevant für die //. Also lief ich einen Test

test(1,  2 ); 
#test(1,  undef); # Don't even need this one. 
test(undef, 2 ); 
test(undef, undef); 

Got:

----------------------------------- ------ ------ ------ ------ ------ ------ 
File         stmt bran cond sub time total 
----------------------------------- ------ ------ ------ ------ ------ ------ 
x.pl         100.0 100.0 100.0 100.0 100.0 100.0 
Total        100.0 100.0 100.0 100.0 100.0 100.0 
----------------------------------- ------ ------ ------ ------ ------ ------