view release on metacpan or  search on metacpan

lib/Graphics/Raylib.pm  view on Meta::CPAN

    WindowShouldClose();
}

=item draw($coderef)

Begins drawing, calls C<< $coderef->() >> and ends drawing. See examples.

=cut

sub draw(&) {
    my $block = shift;

    BeginDrawing();
    $block->();
    EndDrawing();
}

sub draws(@) {
    BeginDrawing();
    for (@_) { $_->draw }
    EndDrawing();
}

=item draw3D($coderef)

Begins 3D drawing, calls C<< $coderef->() >> and ends drawing. See examples.

=cut

sub draw3D(&) {
    my $block = shift;

    BeginDrawing();
    $block->();
    EndDrawing();
}


sub timestamp {
    return strftime('%Y-%m-%dT%H.%M.%S', gmtime(time))