Acme-Godot

 view release on metacpan or  search on metacpan

dist.ini  view on Meta::CPAN

[UploadToCPAN]      ; uploads to CPAN

; after release
[Git::Commit / Commit_Dirty_Files] ; commit Changes (as released)

[Git::Tag]          ; tag repo with custom tag
tag_format = release-v%v

; NextRelease acts *during* pre-release to write $VERSION and
; timestamp to Changes and  *after* release to add a new {{$NEXT}}
; section, so to act at the right time after release, it must actually
; come after Commit_Dirty_Files but before Commit_Changes in the
; dist.ini.  It will still act during pre-release as usual

[NextRelease]

[Git::Commit / Commit_Changes] ; commit Changes (for new dev)

[Git::Push]         ; push repo to remote
push_to = origin

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

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();

t/00-report-prereqs.t  view on Meta::CPAN

    }
}
else {
    $source = 'static metadata';
}

my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;

# Add static includes into a fake section
for my $mod (@include) {
    $req_hash->{other}{modules}{$mod} = 0;
}

for my $phase ( qw(configure build test runtime develop other) ) {
    next unless $req_hash->{$phase};
    next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING});

    for my $type ( qw(requires recommends suggests conflicts modules) ) {
        next unless $req_hash->{$phase}{$type};

t/00_load.t  view on Meta::CPAN

local $SIG{INT} = local $SIG{HUP} = sub { die "User got bored\n" };
throws_ok(
    sub {
        local $SIG{ALRM} = sub { die "Waiting no more\n" };
        alarm 5;
        require Acme::Godot;
        alarm 0;
        $SIG{ALRM} = "default";
    },
    qr/Waiting no more/,
    "Godot didn't arrive during the first 5 seconds"
);

TODO: {
    todo_skip "Need test that successfully waits for Godot to arrive", 1;

    local $SIG{INT} = local $SIG{HUP} = sub { die "not ok\n" };
    require_ok("Acme::Godot");    # FIXME: Solve halting problem
}