File Coverage

blib/lib/Acme/Godot.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	22	77.2

#This is a -*- perl -*- module file
#
# Copyright (c) 2007 Salve J. Nilsen
#

use strict;
package Acme::Godot;

use version; our $VERSION = qv(0.1.1)->numify;

# Module implementation here

BEGIN {
    eval {
        sub _waiting_for_godot {
            sleep 60 * 60 * 24;        # Act 1 - the first day
            sleep 60 * 60 * 24 * 365;  # Intermission. Get your snacks!
            sleep 60 * 60 * 24;        # Act 2 - the second day
        }

        sub _godot_has_arrived {
            0;  # Nowhere to be seen.
        }
    };

    PLAY: while (! _godot_has_arrived() ) {
        _waiting_for_godot();
        redo PLAY unless _godot_has_arrived();
    }
    continue {
        exit;    # The play is over! Godot is here!
    }
}


1; # End of Acme::Godot
__END__