--- a/Lib/IMPL/Test/HarnessRunner.pm	Tue Dec 20 23:00:30 2011 +0300
+++ b/Lib/IMPL/Test/HarnessRunner.pm	Fri Dec 30 23:40:00 2011 +0300
@@ -3,34 +3,28 @@
 use warnings;
 
 use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
-use IMPL::Class::Property;
+use IMPL::lang qw(:declare :constants);
+use TAP::Parser;
 use Test::Harness;
 
 __PACKAGE__->PassThroughArgs;
 
 BEGIN {
-    public property Strap => prop_all;
 }
 
 sub CTOR {
     my $this = shift;
-    
-    die new IMPL::InvalidArgumentException("The Strap parameter must be specified") unless $this->Strap;
 }
 
 sub RunTests {
     my ($this,@files) = @_;
     
-    local $Test::Harness::Strap = $this->Strap;
-    
     return runtests(@files);
 }
 
 sub ExecuteTests {
     my ($this,%args) = @_;
     
-    local $Test::Harness::Strap = $this->Strap;
-    
     return Test::Harness::execute_tests(%args);
 }