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 use Carp 'confess';
   8
   9 do {
  10     my $CALLER;
  11
  12     my %exports = (
  13         extends => sub {
  14             return sub {
  15                 confess "Mouse::Role does not currently support 'extends'";
  16             }
  17         },
  18     );
  19
  20     my $exporter = Sub::Exporter::build_exporter({
  21         exports => \%exports,
  22         groups  => { default => [':all'] },
  23     });
  24
  25     sub import {
  26         $CALLER = caller;
  27
  28         strict->import;
  29         warnings->import;
  30
  31         goto $exporter;
  32     }
  33
  34     sub unimport {
  35     }
  36 };
  37
  38 1;
  39