File Coverage

File: tests/hilo
Coverage: 81.2%
Perl version: 5.8.0
Platform: solaris


line stmt branch cond time code
1 #!/usr/local/bin/perl -w
2
3 # Copyright 2003, Paul Johnson (pjcj@cpan.org)
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 # http://www.pjcj.net
9
10 use strict;
11
12
2
50
311
my $number = @ARGV ? shift : int rand(100) + 1;
13
2
36
my $guess = -1;
14
15
2
3
113
219
while ($guess != $number) {
16
3
68
    print "What is your guess: ";
17
3
3309155
    $guess = <STDIN>;
18
3
100
50
280
    if ($guess > $number) {
19
1
545
        print "Too high\n";
20     } elsif ($guess < $number) {
21
0
        print "Too low\n";
22     } else {
23
2
311
        print "Right!\n";
24     }
25 }