Reading database from ...
------------------------------------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------------------------------------ ------ ------ ------ ------ ------
tests/sort 96.0 n/a n/a 85.7 93.7
Total 96.0 n/a n/a 85.7 93.7
------------------------------------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/sort
line err stmt bran cond sub code
1 #!/usr/bin/perl -w
2
3 1 1 use strict;
1
1
4
5 1 my %sort = (
6 B => \&backwards,
7 F => \&forwards
8 );
9
10 sub backwards {
11 6 6 return $b cmp $a;
12 }
13
14 sub forwards {
15 *** 0 0 return $a cmp $b;
16 }
17
18 sub GetAlgorithm {
19 1 1 my ($alg) = @_;
20 1 return $sort{$alg};
21 }
22
23 1 my @list = qw( a d e c g );
24
25 # my $alg = GetAlgorithm(('B', 'F')[int(rand(2))]);
26 1 my $alg = GetAlgorithm(('B', 'F')[0]);
27
28 1 @list = sort {&{$alg}} @list;
6
6
29
30 1 1 use Data::Dumper;
1
1
31
32 1 print STDERR Dumper(\@list);
33
34 package Failure;
35
36 sub fail {
37 1 1 my @x = 1 .. 5;
38 1 my @y = sort { Failure->xyz( $a, $b ) } @x;
8
39 }
40
41 sub xyz {
42 8 8 my $self = shift;
43 8 my ($a, $b) = @_;
44 8 $a <=> $b;
45 }
46 package main;
47
48 1 my @l = Failure->fail;
49
50 1 print STDERR Dumper(\@l);
Covered Subroutines
-------------------
Subroutine Count Location
------------ ----- -------------
BEGIN 1 tests/sort:3
BEGIN 1 tests/sort:30
GetAlgorithm 1 tests/sort:19
backwards 6 tests/sort:11
fail 1 tests/sort:37
xyz 8 tests/sort:42
Uncovered Subroutines
---------------------
Subroutine Count Location
------------ ----- -------------
forwards 0 tests/sort:15