view release on metacpan or  search on metacpan

lib/Acme/Godot.pm  view on Meta::CPAN

#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__

=head1 NAME

Acme::Godot - Nothing to be done


=head1 VERSION

version 0.001010

=head1 SYNOPSIS

    use Acme::Godot;


=head1 DESCRIPTION

This module will make your program wait for Godot.


=head1 INSTALLATION

To install this module, run the following commands:

    perl Build.PL
    ./Build
    ./Build test
    ./Build install


=head1 INTERFACE

Acme::Godot does not have an interface, and need only to be used
by another program in order to start waiting.


=head1 DIAGNOSTICS

=over

=item C<< (Program apparently hanging) >>