view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DBI.pm  view on Meta::CPAN

          , skip_query              => $$req{skip_query}                           # Don't call query() in the constructor
          , dont_update_keys        => $$req{dont_update_keys}                     # Don't include primary keys in update statements
          , widget_prefix           => $$req{widget_prefix}                        # A string to prefix ( glade ) widget names with when searching for them
          , auto_incrementing       => $$req{auto_incrementing}                    # A flag to indicate whether we should try to poll the last inserted ID after an insert
    	};
    	
	} else {
	    
	    # Assume we're loading an XML
	    my $xml_cfg = XML::Simple->new(
            AttrIndent          => TRUE,                    # XML formatting option - doesn't affect performance
            OutputFile          => $self->{xml_file},
            KeyAttr             => [ ]                      # Stops XML::Simple from squishing some data structures
        );
        
        $self = $xml_cfg->XMLin( $req );
        
        # Attach to the libglade / builder object
        if ( exists $xml_options->{glade_xml} ) {
            $self->{form} = $xml_options->{glade_xml};
        } elsif ( exists $xml_options->{gtk_builder} ) {