Commit | Line | Data |
---|---|---|
c2cb1fed | 1 | package Moo::sification; |
2 | ||
3 | use strictures 1; | |
4 | ||
dbae620d | 5 | END { our $sky_falling = 1 } |
6 | ||
c2cb1fed | 7 | sub Moo::HandleMoose::AuthorityHack::DESTROY { |
dbae620d | 8 | unless (our $sky_falling) { |
9 | require Moo::HandleMoose; | |
10 | Moo::HandleMoose->import; | |
11 | } | |
c2cb1fed | 12 | } |
13 | ||
14 | if ($INC{"Moose.pm"}) { | |
15 | require Moo::HandleMoose; | |
16 | Moo::HandleMoose->import; | |
17 | } else { | |
18 | $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack'); | |
19 | } | |
20 | ||
21 | 1; |