view release on metacpan or  search on metacpan

lib/Fry/Lib/CDBI/Tags.pm  view on Meta::CPAN

		my $c1 = $class;
		my $c2 = $class->_loader->find_class($second_table);
		my $c3 = $class->_loader->find_class($many_table);

		my %has_arg = (many_method=>$many_method,rc21=>$rc21,rc23=>$rc23,c1=>,$c1,c2=>$c2,c3=>$c3);
		$class->has_triple_table(%has_arg);

		#define triple_table hash
		my %triple_obj = (one_table=>$class->tb,many_table=>$many_table, second_table=>$second_table);
		%triple_obj = (%triple_obj,%has_arg);
		$class->mk_cdata_global(_triple_table=>\%triple_obj);

		#$class->set_columns;
		$c2->columns(TEMP=>$manycol);

		#subs:repeat for each many_col
			#c2 points directly to c3 for this column  
			*{$c2."::".$manycol} = sub { shift->$rc23->$manycol } ;
			#c1 points to c2
			*manycol = 
			sub {