view release on metacpan or  search on metacpan

lib/CayleyDickson.pm  view on Meta::CPAN

   my $elements = scalar @values;
   my @pair;
   if ($elements > 2) {
      @pair = ( ($class->new( @values[0           .. $elements/2 - 1] )) ,
                ($class->new( @values[$elements/2 .. $elements   - 1] )) )
   }
   else {
      @pair = ( $values[0] ,
	        $values[1] )
   }
   bless [ $class->prepare(@pair) ] => $class;
}



#
# allows subclassing to modify the object pair just prior to creating the object.
#

sub prepare { shift; @_ }