package Moo::sification; use strict; use warnings; no warnings 'once'; use Carp qw(croak); BEGIN { our @CARP_NOT = qw(Moo::HandleMoose) } use Moo::_Utils qw(_in_global_destruction); sub unimport { croak "Can't disable Moo::sification after inflation has been done" if $Moo::HandleMoose::SETUP_DONE; our $disabled = 1; } sub Moo::HandleMoose::AuthorityHack::DESTROY { unless (our $disabled or _in_global_destruction) { require Moo::HandleMoose; Moo::HandleMoose->import; } } sub import { return if our $setup_done; if ($INC{"Moose.pm"}) { require Moo::HandleMoose; Moo::HandleMoose->import; } else { $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack'); } $setup_done = 1; } 1;
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
HandleMoose | Folder | 0755 |
|
|
HandleMoose.pm | File | 7.69 KB | 0644 |
|
Object.pm | File | 1.9 KB | 0644 |
|
Role.pm | File | 13.09 KB | 0644 |
|
_Utils.pm | File | 6.38 KB | 0644 |
|
sification.pm | File | 740 B | 0644 |
|