From: Matt S Trout Date: Sun, 7 Nov 2010 01:41:30 +0000 (+0000) Subject: import strictures X-Git-Tag: 0.009001~73 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de3d490614cfac5e2a153ae28c9c5d7fbd0ff13c;p=gitmo%2FMoo.git import strictures --- diff --git a/lib/Class/Tiny.pm b/lib/Class/Tiny.pm index 1bc127c..c36c3ec 100644 --- a/lib/Class/Tiny.pm +++ b/lib/Class/Tiny.pm @@ -5,6 +5,7 @@ use Class::Tiny::_Utils; sub import { my $target = caller; + strictures->import; *{_getglob("${target}::extends")} = sub { *{_getglob("${target}::ISA")} = \@_; }; diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm index 38ddb82..f71dcad 100644 --- a/lib/Role/Tiny.pm +++ b/lib/Role/Tiny.pm @@ -8,6 +8,7 @@ our %APPLIED_TO; sub import { my $target = caller; + strictures->import; # get symbol table reference my $stash = do { no strict 'refs'; \%{"${target}::"} }; # install before/after/around subs