lib/MooseX/Role/Parameterized.pm

   1 #!/usr/bin/env perl
   2 package MooseX::Role::Parameterized;
   3 use strict;
   4 use warnings;
   5 use MooseX::Role::Parameterized::Meta::Role;
   6
   7 use Moose::Role ();
   8 use Moose::Exporter;
   9
  10 Moose::Exporter->setup_import_methods(
  11     with_caller => ['parameter'],
  12 );
  13
  14 sub parameter {
  15     my $caller = shift;
  16     $caller->meta->add_parameter(@_);
  17 }
  18
  19 sub init_meta {
  20     my $self = shift;
  21
  22     return Moose::Role->init_meta(@_,
  23         metaclass => 'MooseX::Role::Parameterized::Meta::Role',
  24     );
  25 }
  26
  27 1;
  28