#!/usr/bin/env perl

use warnings;
use strict;

use XML::Compile::Cache;
use XML::Compile::WSS;

my $schema = XML::Compile::Cache->new;
my $wss   = XML::Compile::WSS->new(version => '1.1', schema => $schema);

$schema->namespaces->printIndex;
my $data = $schema->reader('xenc:EncryptedData')->('enc-example.xml');

use Data::Dumper;
$Data::Dumper::Indent    = 1;
$Data::Dumper::Quotekeys = 0;

print Dumper $data;