lib/MooseX/HasDefaults.pm

   1 die "Do not use MooseX::HasDefaults, use MooseX::HasDefaults::RO or MooseX::HasDefaults::RW";
   2
   3 "Screw you Perl, I want to return a true value just to spite you even though it's a load failure. Can we PLEASE get rid of the required module return value? Require modules to die instead, like I just did. SIGH!";
   4
   5 __END__
   6
   7 =head1 NAME
   8
   9 MooseX::HasDefaults - default "is" to "ro" or "rw" for all attributes
  10
  11 =head1 SYNOPSIS
  12
  13     package Person;
  14     use Moose;
  15     use MooseX::HasDefaults::RO;
  16
  17     has name => (
  18         isa => 'Str',
  19     );
  20
  21     has age => (
  22         is  => 'rw',
  23         isa => 'Int',
  24         documentation => "Changes most years",
  25     );
  26
  27 =head1 DESCRIPTION
  28
  29
  30 =cut
  31