foo

diff --git a/Build.PL b/Build.PL
index d6edef1..ff407b4 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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);
     }