xt/author/debugger-duck_type.t

   1 #!/usr/bin/perl
   2
   3 use FindBin qw/ $Bin /;
   4
   5 BEGIN {
   6 #line 1
   7 #!/usr/bin/perl -d
   8
   9     push @DB::typeahead, "c", "q";
  10
  11     # try to shut it up at least a little bit
  12     open my $out, ">", \my $out_buf;
  13     $DB::OUT = $out;
  14     open my $in, "<", \my $in_buf;
  15     $DB::IN = $in;
  16 }
  17
  18 require "$Bin/../../t/type_constraints/duck_types.t";