From: Stevan Little Date: Thu, 22 Jun 2006 22:00:00 +0000 (+0000) Subject: foo X-Git-Tag: 0_09_03^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4db5af4e2df6816deb9b2f546cff9be50d0bc62c;p=gitmo%2FMoose.git foo --- diff --git a/Build.PL b/Build.PL index d6edef1..ff407b4 100644 --- a/Build.PL +++ b/Build.PL @@ -8,7 +8,7 @@ my $build = Module::Build->new( requires => { 'Scalar::Util' => '1.18', 'Carp' => '0', - 'Class::MOP' => '0.29_01', + 'Class::MOP' => '0.29_02', 'Sub::Name' => '0.02', 'UNIVERSAL::require' => '0.10', 'Sub::Exporter' => '0.954', diff --git a/Changes b/Changes index 0ee26f7..6fa1e53 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,7 @@ Revision history for Perl extension Moose 0.09_03 + ++ DEVELOPER RELEASE ++ * Moose - 'use strict' and 'use warnings' are no longer needed in Moose classes, Moose itself will @@ -13,10 +14,6 @@ Revision history for Perl extension Moose - as with Moose, strict and warnings are automatically turned on for you. - added tests for this - - * Moose::Meta::Class - - now handles some moose-specific options in - &create * Moose::Meta::Role - now handles an edge case for override errors @@ -24,6 +21,7 @@ Revision history for Perl extension Moose - added some more edge case tests 0.09_02 Tues. May 16, 2006 + ++ DEVELOPER RELEASE ++ * Moose - added prototypes to the exported subs - updated docs diff --git a/MANIFEST b/MANIFEST index 418cc45..0254f93 100644 --- a/MANIFEST +++ b/MANIFEST @@ -35,6 +35,8 @@ t/012_super_and_override.t t/013_inner_and_augment.t t/014_override_augment_inner_super.t t/015_override_and_foreign_classes.t +t/016_always_strict_warnings.t +t/017_wrapped_method_context_propagation.t t/020_foreign_inheritence.t t/021_moose_w_metaclass.t t/022_moose_respects_base.t @@ -57,6 +59,7 @@ t/044_role_conflict_detection.t t/045_role_exclusion.t t/046_roles_and_required_method_edge_cases.t t/047_role_conflict_edge_cases.t +t/048_more_role_edge_cases.t t/050_util_type_constraints.t t/051_util_type_constraints_export.t t/052_util_std_type_constraints.t diff --git a/TODO b/TODO index 6b13512..4d90ee8 100644 --- a/TODO +++ b/TODO @@ -8,6 +8,10 @@ mst: if I do "subtype 'Foo' => as 'Bar';" I get an empty condition and it dies TODO ------------------------------------------------------------------------------- +- should handle some moose-specific options in &Moose::Meta::Class::create + things like roles, and method modifiers (although those can probably be + ignored if i want to) + - type unions Add support for doing it with Classes which do not have diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index 133678c..3fcb6d2 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -64,6 +64,10 @@ sub new_object { my ($class, %params) = @_; my $self = $class->SUPER::new_object(%params); foreach my $attr ($class->compute_all_applicable_attributes()) { + # FIXME: + # this does not accept undefined + # values, nor does it accept false + # values to be passed into the init-arg next unless $params{$attr->init_arg} && $attr->can('has_trigger') && $attr->has_trigger; $attr->trigger->($self, $params{$attr->init_arg}, $attr); }