Initial Commit
This commit is contained in:
19
database/perl/vendor/lib/Moo/_strictures.pm
vendored
Normal file
19
database/perl/vendor/lib/Moo/_strictures.pm
vendored
Normal file
@@ -0,0 +1,19 @@
|
||||
package Moo::_strictures;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub import {
|
||||
if ($ENV{MOO_FATAL_WARNINGS}) {
|
||||
require strictures;
|
||||
strictures->VERSION(2);
|
||||
@_ = ('strictures');
|
||||
goto &strictures::import;
|
||||
}
|
||||
else {
|
||||
strict->import;
|
||||
warnings->import;
|
||||
warnings->unimport('once');
|
||||
}
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user