Test::More::Descriptive - Test::More + describe/context/it

Descriptive.pm

package Test::More::Descriptive;

use strict;
use warnings;
use Exporter 'import';
use Test::More ();

BEGIN {
    *describe = *context = *it = \&Test::More::subtest;
}

our @EXPORT = qw(describe context it);

1;

foo_spec.t

use Test::More;
use Test::More::Descriptive;

describe 'Foo' => sub {
    context '#bar' => sub {
        it 'should return "BAR" string' => sub {
            my $foo = Foo->new;
            is $foo->bar => 'BAR';
        };
    };
};

done_testing;