--- a/_test/Test/Resources/Format.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/_test/Test/Resources/Format.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,39 +1,39 @@
-package Test::Resources::Format;
-use strict;
-use warnings;
-
-use base qw(IMPL::Test::Unit);
-use IMPL::Test qw(test failed);
-use IMPL::Resources::Format qw(FormatMessage);
-
-__PACKAGE__->PassThroughArgs;
-
-{
-    package Args;
-    use base qw(IMPL::Object);
-    
-    sub foo {
-        return { name => 'Args::foo', value => 'some value'}
-    }
-}
-
-test FormatMessage => sub {
-    my $format = 'This is a %name% message. %args.foo.name% has %args.foo.value% and %some.unknown.param%';
-    
-    my $args = {
-        name => 'Test',
-        args => new Args()
-    };
-    
-    my $result = FormatMessage($format,$args);
-    my $expected = 'This is a Test message. Args::foo has some value and [some.unknown.param]';
-    
-    failed
-        "Format message returned unexpected results",
-        "Expected: $expected",
-        "Recieved: $result"
-    unless $result eq $expected;
-};
-
-
-1;
+package Test::Resources::Format;
+use strict;
+use warnings;
+
+use base qw(IMPL::Test::Unit);
+use IMPL::Test qw(test failed);
+use IMPL::Resources::Format qw(FormatMessage);
+
+__PACKAGE__->PassThroughArgs;
+
+{
+    package Args;
+    use base qw(IMPL::Object);
+    
+    sub foo {
+        return { name => 'Args::foo', value => 'some value'}
+    }
+}
+
+test FormatMessage => sub {
+    my $format = 'This is a %name% message. %args.foo.name% has %args.foo.value% and %some.unknown.param%';
+    
+    my $args = {
+        name => 'Test',
+        args => new Args()
+    };
+    
+    my $result = FormatMessage($format,$args);
+    my $expected = 'This is a Test message. Args::foo has some value and [some.unknown.param]';
+    
+    failed
+        "Format message returned unexpected results",
+        "Expected: $expected",
+        "Recieved: $result"
+    unless $result eq $expected;
+};
+
+
+1;