t/20-methods/pattern/types.t

   1 use strict;
   2 use Test::More tests => 7;
   3 use re::engine::Plugin (
   4     exec => sub {
   5         my ($re, $str) = @_;
   6         my $pattern = $re->pattern;
   7
   8         isa_ok($pattern, $str);
   9     },
  10 );
  11
  12 my $sv;
  13 "SCALAR" =~ \$sv;
  14 "REF"    =~ \\$sv;
  15 "ARRAY"  =~ [];
  16 "HASH"   =~ {};
  17 "GLOB"   =~ \*STDIN;
  18 "CODE"   =~ sub {};
  19 "main"   =~ bless {} => "main";