Mercurial > pub > Impl
comparison _test/temp.pl @ 220:5c82c15b25b1
sync, updated schema
| author | sergey |
|---|---|
| date | Thu, 23 Aug 2012 17:44:31 +0400 |
| parents | c477f24f1980 |
| children | edf011437be8 |
comparison
equal
deleted
inserted
replaced
| 219:c477f24f1980 | 220:5c82c15b25b1 |
|---|---|
| 9 my $schema = XML::Compile::Schema->new('Resources/resources.xsd'); | 9 my $schema = XML::Compile::Schema->new('Resources/resources.xsd'); |
| 10 | 10 |
| 11 $schema->printIndex(); | 11 $schema->printIndex(); |
| 12 | 12 |
| 13 my $type = pack_type 'http://implab.org/schemas/resources', 'resources'; | 13 my $type = pack_type 'http://implab.org/schemas/resources', 'resources'; |
| 14 my $reader = $schema->compile(READER => $type); | 14 my $reader = $schema->compile( |
| 15 READER => $type, | |
| 16 xsi_type => { | |
| 17 pack_type('http://implab.org/schemas/resources','abstractResult') => 'AUTO' | |
| 18 } | |
| 19 ); | |
| 15 | 20 |
| 16 my $t = [gettimeofday]; | 21 my $t = [gettimeofday]; |
| 17 | 22 |
| 18 my $obj = $reader->('Resources/sample.xml'); | 23 my $obj = $reader->('Resources/sample.xml'); |
| 19 | 24 |
