documentation fixes

[gitmo/MooseX-Dependent.git] / lib / MooseX / Dependent / Meta / TypeCoercion / Dependent.pm

diff --git a/lib/MooseX/Dependent/Meta/TypeCoercion/Dependent.pm b/lib/MooseX/Dependent/Meta/TypeCoercion/Dependent.pm
index 5640267..8444aff 100644 (file)
--- a/lib/MooseX/Dependent/Meta/TypeCoercion/Dependent.pm
+++ b/lib/MooseX/Dependent/Meta/TypeCoercion/Dependent.pm
@@ -16,15 +16,12 @@ TBD
 
 This class defines the following methods.
 
-=head
+=head add_type_coercions
 
-=cut
+method modification to throw exception should we try to add a coercion on a
+dependent type that's had it's constraining value filled
 
-sub coerce {
-    my $self = shift @_;
-    my $coderef = $self->_compiled_type_coercion;
-    return $coderef->(@_);
-}
+=cut
 
 around 'add_type_coercions' => sub {
     my ($add_type_coercions, $self, @args) = @_;
@@ -35,6 +32,14 @@ around 'add_type_coercions' => sub {
     }
 };
 
+
+## These two are here until I can merge change upstream to Moose
+sub coerce {
+    my $self = shift @_;
+    my $coderef = $self->_compiled_type_coercion;
+    return $coderef->(@_);
+}
+
 sub compile_type_coercion {
     my $self = shift;
     my @coercion_map = @{$self->type_coercion_map};
@@ -66,9 +71,6 @@ sub compile_type_coercion {
     });
 }
 
-
-
-
 =head1 SEE ALSO
 
 The following modules or resources may be of interest.