view release on metacpan or  search on metacpan

Blinker.pm  view on Meta::CPAN

In both cases, the module recognizes $ENV{BLINKER} and parses the passed options (see below),
f.ex.

    $ export BLINKER=x=1600,y=-150

=head1 API

=head2 start(@options)

Does the necessary hacks for a fork-based test catalyst server running on a X11 desktop.
Dies if there's no X11.

The modules does not do anything unless start() is called. It is safe to
use it everywhere.

=head2 options

=over

=item size INT

size of the blinker

=item x INT

Horizontal position of the blinker. If less than zero, the right desktop border is used.

=item y INT

Vertical position of the blinker. If less than zero, the bottom desktop border is used.

=back

=cut

our $VERSION = '1.0';

my %blinkopt = (
    size => 20,
    x => 0,