The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use strict;
use warnings;
use FindBin::libs;

use Test::More;
use Test::BDD::Cucumber::Loader;
use Test::BDD::Cucumber::Harness::TestBuilder;

my $search_dir = $ARGV[0] || './features/';
unless ( -d $search_dir ) {
    Test::More->builder->skip_all("No features directory");
}

my ( $executor, @features ) = Test::BDD::Cucumber::Loader->load( $search_dir );
my $harness = Test::BDD::Cucumber::Harness::TestBuilder->new();

Test::More->builder->skip_all("No feature files found") unless @features;
$executor->execute( $_, $harness ) for @features;

done_testing;