diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-04-30 17:18:53 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-04-30 17:18:53 +0000 |
commit | 83529ec10275fa6aef95000ccb1f846b16a7e396 (patch) | |
tree | b16d36df36190175d072da2100206df507c81fd6 /lib | |
parent | 49a473c8a270f2d8fedacce3e52aed46e1d076dd (diff) | |
download | reaction-83529ec10275fa6aef95000ccb1f846b16a7e396.tar.gz reaction-83529ec10275fa6aef95000ccb1f846b16a7e396.zip |
changes for 0.002000, thank you xinming for reminding me, I'm a fucking idiot
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reaction.pm | 2 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Action/Class.pm | 4 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm | 2 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Object/Class.pm | 4 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Object/DomainModelAttribute.pm | 6 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Object/ParameterAttribute.pm | 3 | ||||
-rw-r--r-- | lib/Reaction/UI/Controller.pm | 1 |
7 files changed, 6 insertions, 16 deletions
diff --git a/lib/Reaction.pm b/lib/Reaction.pm index 2d5a83e..d9bf746 100644 --- a/lib/Reaction.pm +++ b/lib/Reaction.pm @@ -1,5 +1,5 @@ package Reaction; -our $VERSION = '0.001001'; +our $VERSION = '0.002000'; 1; diff --git a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm index b25cfa2..8b23c73 100644 --- a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm +++ b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm @@ -6,8 +6,6 @@ use aliased 'Reaction::Meta::InterfaceModel::Action::ParameterAttribute'; use namespace::clean -except => [ qw(meta) ]; extends 'Reaction::Meta::Class'; -sub new { shift->SUPER::new(@_) }; - around initialize => sub { my $super = shift; my $class = shift; @@ -20,7 +18,7 @@ sub parameter_attributes { $self->get_all_attributes; }; -__PACKAGE__->meta->make_immutable; +__PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; diff --git a/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm b/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm index d093be9..bee0197 100644 --- a/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm +++ b/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm @@ -70,7 +70,7 @@ sub valid_value_collection { return $valid; }; -__PACKAGE__->meta->make_immutable; +__PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; diff --git a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm index 47997ff..a755f91 100644 --- a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm +++ b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm @@ -8,8 +8,6 @@ use Reaction::Class; use namespace::clean -except => [ qw(meta) ]; extends 'Reaction::Meta::Class'; -sub new { shift->SUPER::new(@_) }; - around initialize => sub { my $super = shift; my $class = shift; @@ -32,7 +30,7 @@ sub domain_models { $self->get_all_attributes; }; -__PACKAGE__->meta->make_immutable; +__PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; diff --git a/lib/Reaction/Meta/InterfaceModel/Object/DomainModelAttribute.pm b/lib/Reaction/Meta/InterfaceModel/Object/DomainModelAttribute.pm index 1d43266..2db918c 100644 --- a/lib/Reaction/Meta/InterfaceModel/Object/DomainModelAttribute.pm +++ b/lib/Reaction/Meta/InterfaceModel/Object/DomainModelAttribute.pm @@ -5,11 +5,7 @@ use Reaction::Class; use namespace::clean -except => [ qw(meta) ]; extends 'Reaction::Meta::Attribute'; - -#i feel like something should happen here, but i aint got nothin. -sub new { shift->SUPER::new(@_); }; # work around immutable - -__PACKAGE__->meta->make_immutable; +__PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; diff --git a/lib/Reaction/Meta/InterfaceModel/Object/ParameterAttribute.pm b/lib/Reaction/Meta/InterfaceModel/Object/ParameterAttribute.pm index ebe16e1..602a9c5 100644 --- a/lib/Reaction/Meta/InterfaceModel/Object/ParameterAttribute.pm +++ b/lib/Reaction/Meta/InterfaceModel/Object/ParameterAttribute.pm @@ -17,9 +17,8 @@ has orig_attr_name => ( is => 'ro', predicate => 'has_orig_attr_name' ); -sub new { shift->SUPER::new(@_); }; # work around immutable -__PACKAGE__->meta->make_immutable; +__PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; diff --git a/lib/Reaction/UI/Controller.pm b/lib/Reaction/UI/Controller.pm index a9eeb59..d5c2b28 100644 --- a/lib/Reaction/UI/Controller.pm +++ b/lib/Reaction/UI/Controller.pm @@ -12,7 +12,6 @@ with 'Catalyst::Component::InstancePerContext'; sub build_per_context_instance { my ($self, $c, @args) = @_; my $newself = $self->new($self->_application, {%$self, context => $c, @args}); - weaken $newself->{context}; #stopgap till cat 5.8 return $newself; } |