t/lib/Test/qr.t

   1 #!./perl -w
   2
   3 use strict;
   4 BEGIN {
   5     if ($] < 5.005) {
   6         print "1..0\n";
   7         print "ok 1 # skipped; this test requires at least perl 5.005\n";
   8         exit;
   9     }
  10 }
  11 use Test; plan tests => 1;
  12
  13 ok 'abc', qr/b/;