change block arg of spec() to be optional

oktest2.pl

# -*- coding: utf-8 -*-

##
## change block arg of spec() to be optional
##

use strict;
use warnings;
use Test::More;

sub spec {
    my ($text, $block) = @_;
    print "# $text\n";
    return $block->() if $block;
    TODO: {
        local $TODO = ": not implemented yet";
        ok(undef);
    }
}


if ($0 eq __FILE__) {
    use Test::More tests => 2;
    spec "1+1 should be 2";
    spec "1+1 should be 2", sub {
        is(1+1, 2);
    };
}