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 .
