lib/Mouse/Role.pm

   1 #!/usr/bin/env perl
   2 package Mouse::Role;
   3 use strict;
   4 use warnings;
   5
   6 use Sub::Exporter;
   7
   8 do {
   9     my $CALLER;
  10
  11     my %exports = (
  12     );
  13
  14     my $exporter = Sub::Exporter::build_exporter({
  15         exports => \%exports,
  16         groups  => { default => [':all'] },
  17     });
  18
  19     sub import {
  20         $CALLER = caller;
  21
  22         strict->import;
  23         warnings->import;
  24
  25         goto $exporter;
  26     }
  27
  28     sub unimport {
  29     }
  30 };
  31
  32 1;
  33