comparison Lib/IMPL/DOM/Schema.pm @ 382:99ac2e19c0cc

Implemented a strings map for a DOM schema
author sergey
date Thu, 23 Jan 2014 02:35:28 +0400
parents ced5937ff21a
children 2f16f13b000c
comparison
equal deleted inserted replaced
381:ced5937ff21a 382:99ac2e19c0cc
78 } 78 }
79 79
80 sub _getStringMap { 80 sub _getStringMap {
81 my ($this) = @_; 81 my ($this) = @_;
82 82
83 return $this->{$stringMap}
84 if return $this->{$stringMap};
85
86 my $map = StringMap->new();
87 if ($this->baseDir and $this->schemaName) {
88
89 $map->paths( File::Spec->catdir($this->baseDir,'locale') );
90 $map->name(schemaName);
91 }
83 92
84 93 return $this->{$stringMap} = $map;
85 File::Spec->catdir($this->baseDir,'locale');
86 } 94 }
87 95
88 sub Process { 96 sub Process {
89 my ($this) = @_; 97 my ($this) = @_;
90 98