Begin doc

[gitmo/MooseX-HasDefaults.git] / lib / MooseX / HasDefaults.pm

diff --git a/lib/MooseX/HasDefaults.pm b/lib/MooseX/HasDefaults.pm
new file mode 100644 (file)
index 0000000..4b31d96
--- /dev/null
+++ b/lib/MooseX/HasDefaults.pm
@@ -0,0 +1,31 @@
+die "Do not use MooseX::HasDefaults, use MooseX::HasDefaults::RO or MooseX::HasDefaults::RW";
+
+"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!";
+
+__END__
+
+=head1 NAME
+
+MooseX::HasDefaults - default "is" to "ro" or "rw" for all attributes
+
+=head1 SYNOPSIS
+
+    package Person;
+    use Moose;
+    use MooseX::HasDefaults::RO;
+
+    has name => (
+        isa => 'Str',
+    );
+
+    has age => (
+        is  => 'rw',
+        isa => 'Int',
+        documentation => "Changes most years",
+    );
+
+=head1 DESCRIPTION
+
+
+=cut
+