--- a/Lib/Schema/Form/Format.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Schema/Form/Format.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,26 +1,26 @@
-package Schema::Form::Format;
-use strict;
-use Common;
-our @ISA = qw(Object);
-
-BEGIN {
-    DeclareProperty Name => ACCESS_READ;
-    DeclareProperty Filters => ACCESS_READ;
-    DeclareProperty Attributes => ACCESS_READ;
-}
-
-sub CTOR {
-    my ($this,%args) = @_;
-    
-    $this->{$Name} = $args{'Name'} or die new Exception('A format name is required');
-    $this->{$Filters} = [];
-    $this->{$Attributes} = $args{'Attributes'} || {};
-}
-
-sub AddFilter {
-    my ($this,$filter) = @_;
-    
-    push @{$this->{$Filters}},$filter;
-}
-
-1;
+package Schema::Form::Format;
+use strict;
+use Common;
+our @ISA = qw(Object);
+
+BEGIN {
+    DeclareProperty Name => ACCESS_READ;
+    DeclareProperty Filters => ACCESS_READ;
+    DeclareProperty Attributes => ACCESS_READ;
+}
+
+sub CTOR {
+    my ($this,%args) = @_;
+    
+    $this->{$Name} = $args{'Name'} or die new Exception('A format name is required');
+    $this->{$Filters} = [];
+    $this->{$Attributes} = $args{'Attributes'} || {};
+}
+
+sub AddFilter {
+    my ($this,$filter) = @_;
+    
+    push @{$this->{$Filters}},$filter;
+}
+
+1;