view release on metacpan or  search on metacpan

lib/blx/xsdsql/xml/reader.pm  view on Meta::CPAN

									Start 			=> \&_start_node
									,End 			=> \&_end_node
									,Char 			=> \&_char_node
									,Doctype 		=> \&_doctype_node
									,Notation 		=> \&_notation_node
									,Entity			=> \&_entity_node
									,Element		=> \&_element_node
									,Attlist		=> \&_attlist_node
									,ExternEnt 		=> \&_externent_node
									,DoctypeFin		=> \&_doctypefin_node
#									,CDataStart		=> \&_cdatastart_node
									,XMLDecl 		=> \&_xmldecl_node 
	);
	$class->SUPER::_new(%params);
}

sub read {
	my ($self,%params)=@_;
	$self->{BINDING}->set_attrs_value(SEQUENCE_NAME => $self->{EXTRA_TABLES}->get_sequence_name)
		unless defined $self->{BINDING}->get_attrs_value(qw(SEQUENCE_NAME)); 
	$self->{STACK}=[];