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

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
Commit	Line	Data
42065130	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