|
655
|
1 |
package XML::XQL::Strict;
|
|
|
2 |
|
|
|
3 |
BEGIN
|
|
|
4 |
{
|
|
|
5 |
die "Can't 'use' or 'require' XML::XQL module before XML::XQL::Strict\nJust 'us' or 'require' XML::XQL::Strict instead" if ($XML::XQL::Included);
|
|
|
6 |
|
|
|
7 |
$XML::XQL::Restricted = 1;
|
|
|
8 |
|
|
|
9 |
require XML::XQL;
|
|
|
10 |
};
|
|
|
11 |
|
|
|
12 |
1;
|