--- a/Lib/IMPL/Class/Member.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Class/Member.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,37 +1,37 @@
-package IMPL::Class::Member;
-use strict;
-use base qw(Exporter);
-our @EXPORT = qw(virtual public private protected);
-
-use IMPL::Class::Meta;
-require IMPL::Class::MemberInfo;
-
-use constant {
-    MOD_PUBLIC => 1,
-    MOD_PROTECTED => 2,
-    MOD_PRIVATE => 3
-};
-
-sub virtual($) {
-    $_[0]->Virtual(1);
-    $_[0];
-}
-
-sub public($) {
-    $_[0]->Access(MOD_PUBLIC);
-    $_[0]->Implement;
-    $_[0];
-}
-
-sub private($) {
-    $_[0]->Access(MOD_PRIVATE);
-    $_[0]->Implement;
-    $_[0];
-}
-
-sub protected($) {
-    $_[0]->Access(MOD_PROTECTED);
-    $_[0]->Implement;
-    $_[0];
-}
-1;
\ No newline at end of file
+package IMPL::Class::Member;
+use strict;
+use base qw(Exporter);
+our @EXPORT = qw(virtual public private protected);
+
+use IMPL::Class::Meta;
+require IMPL::Class::MemberInfo;
+
+use constant {
+    MOD_PUBLIC => 1,
+    MOD_PROTECTED => 2,
+    MOD_PRIVATE => 3
+};
+
+sub virtual($) {
+    $_[0]->Virtual(1);
+    $_[0];
+}
+
+sub public($) {
+    $_[0]->Access(MOD_PUBLIC);
+    $_[0]->Implement;
+    $_[0];
+}
+
+sub private($) {
+    $_[0]->Access(MOD_PRIVATE);
+    $_[0]->Implement;
+    $_[0];
+}
+
+sub protected($) {
+    $_[0]->Access(MOD_PROTECTED);
+    $_[0]->Implement;
+    $_[0];
+}
+1;