view release on metacpan or  search on metacpan

t/lib/Async/Trampoline/Describe.pm  view on Meta::CPAN

our $_PATH;

=head2 describe

    describe q(name) => sub {
        ...
    };

=cut

sub describe($&) {
    my ($what, $test) = @_;
    local $_PATH = (defined $_PATH) ? "$_PATH\::$what" : $what;
    @_ = ($_PATH, $test);
    goto &subtest;
}

=head2 it

    it q(does something interesting) => sub {
        ...
    };

=cut

sub it($&) {
    my ($behaves, $test) = @_;
    local $_PATH = (defined $_PATH) ? "$_PATH $behaves" : "it $behaves";
    @_ = ($_PATH, $test);
    goto &subtest;
}

1;

__END__