Permalink
Fetching contributors…
Cannot retrieve contributors at this time
43 lines (33 sloc) 812 Bytes
#!/usr/bin/perl
# Copyright 2004-2012, 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:
# http://www.pjcj.net
# __COVER__ uncoverable_file tests/.uncoverable
my $x = 1;
my $y = 1;
# uncoverable branch true
# uncoverable condition left
# uncoverable condition false
if ($x && !$y)
{
$x++; # uncoverable statement
# uncoverable statement
z();
}
# uncoverable branch true
# uncoverable condition left
# uncoverable condition right
if (!$x || !$y)
{
# uncoverable statement count:1
# uncoverable statement count:2
b(); b();
}
sub z
{
# uncoverable subroutine
$y++; # uncoverable statement
}
# uncoverable statement
# uncoverable subroutine