Security/regressions/inc/MyHarness.pm

   1 use warnings;
   2 use strict;
   3
   4 package MyStraps;
   5 use base qw( Test::Harness::Straps );
   6
   7 sub _command_line {
   8     my $self = shift;
   9     my $file = shift;
  10
  11     $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
  12     my $line = "$file";
  13
  14     return $line;
  15 }
  16
  17 sub _default_inc {
  18     return @INC;
  19 }
  20
  21 package MyHarness;
  22 use base qw( Test::Harness );
  23
  24 #my $Strap = MyStraps->new();
  25 $Test::Harness::Strap = MyStraps->new();
  26
  27 sub strap { return $Test::Harness::Strap }
  28
  29 1;