The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
#
# subset_spec.pl
#
# Helper for testing arguments to runtests(@patterns).
#
########################################################################
#

use Test::Spec;
use FindBin qw($Bin);
BEGIN { require "$Bin/test_helper.pl" };

describe "Test" => sub {
  it "One" => sub { pass };
  it "Two" => sub { pass };
};

runtests(@ARGV) unless caller;