Skip to content

Instantly share code, notes, and snippets.

@sartak
Created August 6, 2011 21:55
Show Gist options
  • Save sartak/1129792 to your computer and use it in GitHub Desktop.
Save sartak/1129792 to your computer and use it in GitHub Desktop.
diff --git a/lib/MooseX/Role/Parameterized/Meta/Parameter.pm b/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
index 6dbc906..b6a040e 100644
--- a/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
+++ b/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
@@ -4,28 +4,6 @@ extends 'Moose::Meta::Attribute';
our $VERSION = '0.26';
-# This doesn't actually do anything because _process_options does not consult
-# the default value of "is". hrm.
-has '+is' => (
- default => 'ro',
-);
-
-around _process_options => sub {
- my $orig = shift;
- my ($class, $name, $options) = @_;
-
- $options->{is} ||= 'ro';
-
- $orig->(@_);
-};
-
-__PACKAGE__->meta->make_immutable(
- inline_constructor => 1,
- replace_constructor => 1,
- constructor_name => "_new",
-);
-no Moose;
-
1;
__END__
diff --git a/t/021-parameter-trait.t b/t/021-parameter-trait.t
index 917224c..d398a0b 100644
--- a/t/021-parameter-trait.t
+++ b/t/021-parameter-trait.t
@@ -20,6 +20,7 @@ do {
parameter favorite => (
traits => ['MyTrait::Labeled'],
label => 'FAVE',
+ is => 'ro',
isa => 'Str',
);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment