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-2015 Salve J. Nilsen
#

use strict;

package Acme::Godot;

use version; our $VERSION = version->parse(0.1.10)->numify;

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;    # Rejoice, Godot is here! Let's get outta here.
    }
}


1;               # End of Acme::Godot
__END__