MooX::late Problem: Undefined slot

[email protected] (Shlomi Fish)
Newsgroups perl.moose
Message-ID <[email protected]>
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 .
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.