--- a/Lib/IMPL/DOM/Schema/Node.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/DOM/Schema/Node.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,62 +1,62 @@
-package IMPL::DOM::Schema::Node;
-use strict;
-use warnings;
-
-use base qw(IMPL::DOM::Node);
-use IMPL::Class::Property;
-use IMPL::DOM::Property qw(_dom);
-use IMPL::Class::Property::Direct;
-
-BEGIN {
-    public _direct property minOccur => prop_all;
-    public _direct property maxOccur => prop_all;
-    public _direct property type => prop_all;
-    public _direct property name => prop_all;
-}
-
-our %CTOR = (
-    'IMPL::DOM::Node' => sub {my %args = @_; $args{nodeName} ||= 'Node'; %args}
-);
-
-sub CTOR {
-    my ($this,%args) = @_;
-    
-    $this->{$minOccur} = defined $args{minOccur} ? $args{minOccur} : 1;
-    $this->{$maxOccur} = defined $args{maxOccur} ? $args{maxOccur} : 1;
-    $this->{$type} = $args{type};
-    $this->{$name} = $args{name} or die new IMPL::InvalidArgumentException('Argument is required','name');
-}
-
-sub Validate {
-    my ($this,$node) = @_;
-    
-    if (my $schemaType = $this->{$type} ? $this->document->resolveType($this->{$type}) : undef ) {
-        return $schemaType->Validate($node);
-    } else {
-        return ();
-    }
-}
-
-sub qname {
-    $_[0]->nodeName.'[name='.$_[0]->{$name}.']';
-}
-
-1;
-
-__END__
-=pod
-
-=head1 SYNOPSIS
-
-package Restriction;
-use base qw(IMPL::DOM::Schema::Item);
-
-sub Validate {
-    my ($this,$node) = @_;
-}
-
-=head1 DESCRIPTION
-
-Базовый класс для элементов схемы.
-
-=cut
+package IMPL::DOM::Schema::Node;
+use strict;
+use warnings;
+
+use base qw(IMPL::DOM::Node);
+use IMPL::Class::Property;
+use IMPL::DOM::Property qw(_dom);
+use IMPL::Class::Property::Direct;
+
+BEGIN {
+    public _direct property minOccur => prop_all;
+    public _direct property maxOccur => prop_all;
+    public _direct property type => prop_all;
+    public _direct property name => prop_all;
+}
+
+our %CTOR = (
+    'IMPL::DOM::Node' => sub {my %args = @_; $args{nodeName} ||= 'Node'; %args}
+);
+
+sub CTOR {
+    my ($this,%args) = @_;
+    
+    $this->{$minOccur} = defined $args{minOccur} ? $args{minOccur} : 1;
+    $this->{$maxOccur} = defined $args{maxOccur} ? $args{maxOccur} : 1;
+    $this->{$type} = $args{type};
+    $this->{$name} = $args{name} or die new IMPL::InvalidArgumentException('Argument is required','name');
+}
+
+sub Validate {
+    my ($this,$node) = @_;
+    
+    if (my $schemaType = $this->{$type} ? $this->document->resolveType($this->{$type}) : undef ) {
+        return $schemaType->Validate($node);
+    } else {
+        return ();
+    }
+}
+
+sub qname {
+    $_[0]->nodeName.'[name='.$_[0]->{$name}.']';
+}
+
+1;
+
+__END__
+=pod
+
+=head1 SYNOPSIS
+
+package Restriction;
+use base qw(IMPL::DOM::Schema::Item);
+
+sub Validate {
+    my ($this,$node) = @_;
+}
+
+=head1 DESCRIPTION
+
+Базовый класс для элементов схемы.
+
+=cut