| Subject: | Minor bug in Dios: |
| Date: | Mon, 20 May 2019 15:39:48 -0400 |
| To: | bug-Dios [...] rt.cpan.org |
| From: | "F. Li" <li.hansen.inc [...] gmail.com> |
Greeting!
Environment is:
Perl is (v5.28.0)
perl -MDios -e "print $Dios::VERSION"
0.002011
file: bad.pl
use 5.014_00;
use badA;
use badB;
__END__
file: badA.pm
package badA;
use 5.014_00;
use Dios;
class badA {
}; # class badA:
unless (caller) {
...;
};
say __PACKAGE__," ok";
__END__
This one will work!
badB.pm
package badB;
use 5.014_00;
use Dios { accessors => 'unified' };
class badB {
}; # class badB:
unless (caller) {
...;
};
say __PACKAGE__," ok";
__DATA__
This one will NOT!
results in
Show quoted text
>perl -I. bad.pl
badA ok
badB ok
badB.pm did not return a true value at bad.pl line 3.
BEGIN failed--compilation aborted at bad.pl line 3.
It seems Dios prefers (needs?) to see __END__ and not __DATA__.
Felix Li