[lucy-commits] svn commit: r1067850 - /incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm

[ma...@apache.org]

Author: marvin
Date: Mon Feb  7 03:12:25 2011
New Revision: 1067850

URL: http://svn.apache.org/viewvc?rev=1067850&view=rev
Log:
Eliminate override of get_specifier() by Clownfish::Type::Composite.

Modified:
    incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm

Modified: incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm?rev=1067850&r1=1067849&r2=1067850&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm (original)
+++ incubator/lucy/trunk/clownfish/lib/Clownfish/Type/Composite.pm Mon Feb  7 03:12:25 2011
@@ -42,7 +42,11 @@ sub new {
     confess("Missing required param 'child'")
         unless a_isa_b( $child, "Clownfish::Type" );
     verify_args( \%new_PARAMS, %args ) or confess $@;
-    my $self = $either->SUPER::new( %args, composite => 1 );
+    my $self = $either->SUPER::new(
+        %args,
+        specifier => $child->get_specifier,
+        composite => 1
+    );
     $child{$self} = $child;
     $array{$self} = $array;
     $self->set_nullable($nullable);
@@ -65,7 +69,6 @@ sub DESTROY {
     $self->SUPER::DESTROY;
 }
 
-sub get_specifier { shift->_get_child->get_specifier }
 sub get_array     { $array{ +shift } }
 sub _get_child    { $child{ +shift } }