Hi all, Using this program that uses https://metacpan.org/module/XML::GrammarBase::Role::RelaxNG , I am getting this when running it:
<<<< shlomif@telaviv1:~$ perl Test.pl rng_schema_basename is undefined at Test.pl line 41. shlomif@telaviv1:~$ >>>> And I wonder why. It should work as it is. Any insight would be appreciated. I spent several hours yesterday being frustrated at it not working. Regards, Shlomi Fish [START CODE] package FooRNG; use strict; use warnings; our $VERSION = '0.11.1'; use MooX 'late'; use XML::GrammarBase::Role::RelaxNG v0.2.1; with ('XML::GrammarBase::Role::RelaxNG'); has '+module_base' => (default => 'XML-Grammar-Fiction',); has '+rng_schema_basename' => (default => 'fiction-xml.rng',); 1; package ToDocBook; use strict; use warnings; use Carp; use MooX 'late'; extends ("FooRNG"); use XML::GrammarBase::Role::XSLT; with XSLT(output_format => 'docbook'); has '+to_docbook_xslt_transform_basename' => (default => "fiction-xml-to-docbook.xslt"); package main; my $rng = ToDocBook->new; if (! defined $rng->rng_schema_basename) { die "rng_schema_basename is undefined"; } elsif ($rng->rng_schema_basename ne 'fiction-xml.rng') { die "rng_schema_basename is wrong"; } print "OK.\n"; exit(0); [END CODE] -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ Optimising Code for Speed - http://shlom.in/optimise “I simply hate, detest, loathe, despise, and abhor redundancy.” — http://uncyclopedia.org/wiki/Redundancy Please reply to list if it's a mailing list post - http://shlom.in/reply .