lib/MooseX/UndefTolerant.pm

   1 package MooseX::UndefTolerant;
   2 use strict;
   3 use warnings;
   4
   5 use Moose qw();
   6 use Moose::Exporter;
   7 use Moose::Util::MetaRole;
   8
   9 use MooseX::UndefTolerant::Attribute;
  10
  11 our $VERSION = '0.01';
  12
  13 Moose::Exporter->setup_import_methods();
  14
  15 sub init_meta {
  16     my (undef, %options) = @_;
  17
  18     Moose->init_meta(%options);
  19
  20     return Moose::Util::MetaRole::apply_metaclass_roles(
  21         for_class => $options{for_class},
  22         attribute_metaclass_roles => [ 'MooseX::UndefTolerant::Attribute' ]
  23     );
  24 }
  25
  26 1;
  27
  28 __END__
  29
  30 =head1 NAME
  31
  32 MooseX::Attribute::UndefTolerant - The great new MooseX::Attribute::UndefTolerant!
  33
  34 =head1 SYNOPSIS
  35
  36     use MooseX::Attribute::UndefTolerant;
  37
  38
  39 =head1 AUTHOR
  40
  41 Cory G Watson, C<< <gphat at cpan.org> >>
  42
  43 =head1 ACKNOWLEDGEMENTS
  44
  45 Hans Dieter Pearcey (confound)
  46
  47 Jesse Luehrs (doy)
  48
  49 Tomas Doran (t0m)
  50
  51 Dylan Hardison (dylan)
  52
  53 Jay Shirley (jshirley)
  54
  55 Mike Eldridge (diz)
  56
  57 =head1 COPYRIGHT & LICENSE
  58
  59 Copyright 2009 Cory G Watson.
  60
  61 This program is free software; you can redistribute it and/or modify it
  62 under the terms of either: the GNU General Public License as published
  63 by the Free Software Foundation; or the Artistic License.
  64
  65 See http://dev.perl.org/licenses/ for more information.
  66
  67
  68 =cut