File: sification.pm

package info (click to toggle)
libmoo-perl 0.091011-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 476 kB
  • sloc: perl: 1,688; makefile: 4; sh: 1
file content (22 lines) | stat: -rw-r--r-- 444 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
package Moo::sification;

use strictures 1;
use Moo::_Utils ();

sub unimport { our $disarmed = 1 }

sub Moo::HandleMoose::AuthorityHack::DESTROY {
  unless (our $disarmed or Moo::_Utils::_in_global_destruction) {
    require Moo::HandleMoose;
    Moo::HandleMoose->import;
  }
}

if ($INC{"Moose.pm"}) {
  require Moo::HandleMoose;
  Moo::HandleMoose->import;
} else {
  $Moose::AUTHORITY = bless({}, 'Moo::HandleMoose::AuthorityHack');
}

1;