t/20-methods/str/types.t

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