lib/MooseX/StrictConstructor.pm

   1 package MooseX::StrictConstructor;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '0.01';
   7
   8 use Moose;
   9 use MooseX::Object::StrictConstructor;
  10
  11
  12 sub import
  13 {
  14     my $caller = caller();
  15
  16     return if $caller eq 'main';
  17
  18     Moose::init_meta( $caller, 'MooseX::Object::StrictConstructor', 'Moose::Meta::Class' );
  19
  20     Moose->import( { into => $caller } );
  21
  22     return;
  23 }
  24
  25
  26
  27 1;
  28
  29 __END__
  30
  31 =pod
  32
  33 =head1 NAME
  34
  35 MooseX::StrictConstructor - The fantastic new MooseX::StrictConstructor!
  36
  37 =head1 SYNOPSIS
  38
  39 XXX - change this!
  40
  41     use MooseX::StrictConstructor;
  42
  43     my $foo = MooseX::StrictConstructor->new();
  44
  45     ...
  46
  47 =head1 DESCRIPTION
  48
  49 =head1 METHODS
  50
  51 This class provides the following methods
  52
  53 =head1 AUTHOR
  54
  55 Dave Rolsky, C<< <autarch@urth.org> >>
  56
  57 =head1 BUGS
  58
  59 Please report any bugs or feature requests to C<bug-moosex-strictconstructor@rt.cpan.org>,
  60 or through the web interface at L<http://rt.cpan.org>.  I will be
  61 notified, and then you'll automatically be notified of progress on
  62 your bug as I make changes.
  63
  64 =head1 COPYRIGHT & LICENSE
  65
  66 Copyright 2007 Dave Rolsky, All Rights Reserved.
  67
  68 This program is free software; you can redistribute it and/or modify
  69 it under the same terms as Perl itself.
  70
  71 =cut