--- a/Lib/IMPL/Test/HarnessRunner.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Test/HarnessRunner.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,37 +1,37 @@
-package IMPL::Test::HarnessRunner;
-use strict;
-use warnings;
-
-use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
-use IMPL::Class::Property;
-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);
-}
-
-1;
+package IMPL::Test::HarnessRunner;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
+use IMPL::Class::Property;
+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);
+}
+
+1;