view _test/temp.pl @ 269:dacfe7c0311a

SQL schema updated (unstable)
author sergey
date Thu, 24 Jan 2013 20:00:27 +0400
parents edf011437be8
children 8d36073411b1
line wrap: on
line source

#!/usr/bin/perl
use strict;

use XML::Compile::Schema;
use XML::Compile::Util qw(pack_type pack_id);
use Data::Dumper;
use Time::HiRes qw(gettimeofday tv_interval);
    
my $schema = XML::Compile::Schema->new('Resources/resources.xsd');

$schema->printIndex();

my $type = pack_type 'http://implab.org/schemas/resources', 'resources';
my $reader = $schema->compile(
    READER => $type,
    xsi_type => {
    	pack_type('http://implab.org/schemas/resources','AbstractResult') => 'AUTO'
    }
);

my $t = [gettimeofday];

my $obj = $reader->('Resources/sample.xml');

print "Parsing small Xml file: ",tv_interval($t,[gettimeofday]),"\n";

print Dumper( $obj );