|
GnuCash 2.4.99
|
CBBlib-auto.pl
00001 #!/usr/bin/perl -w 00002 # This code is automatically generated. Do not edit. 00003 00004 00005 #### CBBlib::Acct slot methods ########################### 00006 00007 package CBBlib::Acct; 00008 use strict; 00009 00010 sub make_internals_ { 00011 return [undef, 00012 undef, 00013 undef, 00014 undef, 00015 0, 00016 0, 00017 0]; 00018 } 00019 00020 sub get_db_ { my $self = shift; return $$self[0]; } 00021 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; } 00022 00023 sub get_db { my $self = shift; return $$self[0]; } 00024 00025 sub get_name_ { my $self = shift; return $$self[1]; } 00026 sub set_name_ { my($self, $val) = @_; $$self[1] = $val; } 00027 00028 sub get_name { my $self = shift; return $$self[1]; } 00029 00030 sub set_name { my($self, $val) = @_; $$self[1] = $val; } 00031 00032 sub get_notes_ { my $self = shift; return $$self[2]; } 00033 sub set_notes_ { my($self, $val) = @_; $$self[2] = $val; } 00034 00035 sub get_notes { my $self = shift; return $$self[2]; } 00036 00037 sub set_notes { my($self, $val) = @_; $$self[2] = $val; } 00038 00039 sub get_ledger_ { my $self = shift; return $$self[3]; } 00040 sub set_ledger_ { my($self, $val) = @_; $$self[3] = $val; } 00041 00042 sub get_ledger_usage_count_ { my $self = shift; return $$self[4]; } 00043 sub set_ledger_usage_count_ { my($self, $val) = @_; $$self[4] = $val; } 00044 00045 sub get_cleared_balance_ { my $self = shift; return $$self[5]; } 00046 sub set_cleared_balance_ { my($self, $val) = @_; $$self[5] = $val; } 00047 00048 sub get_cleared_balance { my $self = shift; return $$self[5]; } 00049 00050 sub get_final_balance_ { my $self = shift; return $$self[6]; } 00051 sub set_final_balance_ { my($self, $val) = @_; $$self[6] = $val; } 00052 00053 sub get_final_balance { my $self = shift; return $$self[6]; } 00054 00055 00056 #### CBBlib::Cat slot methods ########################### 00057 00058 package CBBlib::Cat; 00059 use strict; 00060 00061 sub make_internals_ { 00062 return [undef, 00063 undef, 00064 undef, 00065 undef, 00066 0, 00067 0, 00068 0]; 00069 } 00070 00071 sub get_db_ { my $self = shift; return $$self[0]; } 00072 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; } 00073 00074 sub get_db { my $self = shift; return $$self[0]; } 00075 00076 sub get_name_ { my $self = shift; return $$self[1]; } 00077 sub set_name_ { my($self, $val) = @_; $$self[1] = $val; } 00078 00079 sub get_name { my $self = shift; return $$self[1]; } 00080 00081 sub set_name { my($self, $val) = @_; $$self[1] = $val; } 00082 00083 sub get_notes_ { my $self = shift; return $$self[2]; } 00084 sub set_notes_ { my($self, $val) = @_; $$self[2] = $val; } 00085 00086 sub get_notes { my $self = shift; return $$self[2]; } 00087 00088 sub set_notes { my($self, $val) = @_; $$self[2] = $val; } 00089 00090 sub get_ledger_ { my $self = shift; return $$self[3]; } 00091 sub set_ledger_ { my($self, $val) = @_; $$self[3] = $val; } 00092 00093 sub get_ledger_usage_count_ { my $self = shift; return $$self[4]; } 00094 sub set_ledger_usage_count_ { my($self, $val) = @_; $$self[4] = $val; } 00095 00096 sub get_cleared_balance_ { my $self = shift; return $$self[5]; } 00097 sub set_cleared_balance_ { my($self, $val) = @_; $$self[5] = $val; } 00098 00099 sub get_cleared_balance { my $self = shift; return $$self[5]; } 00100 00101 sub get_final_balance_ { my $self = shift; return $$self[6]; } 00102 sub set_final_balance_ { my($self, $val) = @_; $$self[6] = $val; } 00103 00104 sub get_final_balance { my $self = shift; return $$self[6]; } 00105 00106 00107 #### CBBlib::Txn slot methods ############################# 00108 00109 package CBBlib::Txn; 00110 use strict; 00111 00112 sub make_internals_ { 00113 return [undef, 00114 undef, 00115 undef, 00116 undef, 00117 undef, 00118 undef, 00119 '', 00120 []]; 00121 } 00122 00123 sub get_db_ { my $self = shift; return $$self[0]; } 00124 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; } 00125 00126 sub get_db { my $self = shift; return $$self[0]; } 00127 00128 sub get_clone_ { my $self = shift; return $$self[1]; } 00129 sub set_clone_ { my($self, $val) = @_; $$self[1] = $val; } 00130 00131 sub get_date_ { my $self = shift; return $$self[2]; } 00132 sub set_date_ { my($self, $val) = @_; $$self[2] = $val; } 00133 00134 sub get_date { 00135 my $self = shift; 00136 my $clone = $self->get_clone_(); 00137 if($clone) { 00138 return $clone->get_date_(); 00139 } else { 00140 return $self->get_date_(); 00141 } 00142 } 00143 00144 sub set_date { 00145 my($self, $val) = @_; 00146 00147 my $db = $self->get_db(); 00148 if($db) { 00149 $db->begin_txn_modifications(); 00150 00151 my $clone = $self->make_clone_(); 00152 $clone->set_date_($val); 00153 $db->record_txn_modification_($self); 00154 $db->end_txn_modifications(); 00155 } else { 00156 $self->set_date_($val); 00157 } 00158 } 00159 sub get_source_ { my $self = shift; return $$self[3]; } 00160 sub set_source_ { my($self, $val) = @_; $$self[3] = $val; } 00161 00162 sub get_source { my $self = shift; return $$self[3]; } 00163 00164 sub get_checkno_ { my $self = shift; return $$self[4]; } 00165 sub set_checkno_ { my($self, $val) = @_; $$self[4] = $val; } 00166 00167 sub get_checkno { 00168 my $self = shift; 00169 my $clone = $self->get_clone_(); 00170 if($clone) { 00171 return $clone->get_checkno_(); 00172 } else { 00173 return $self->get_checkno_(); 00174 } 00175 } 00176 00177 sub set_checkno { 00178 my($self, $val) = @_; 00179 00180 my $db = $self->get_db(); 00181 if($db) { 00182 $db->begin_txn_modifications(); 00183 00184 my $clone = $self->make_clone_(); 00185 $clone->set_checkno_($val); 00186 $db->record_txn_modification_($self); 00187 $db->end_txn_modifications(); 00188 } else { 00189 $self->set_checkno_($val); 00190 } 00191 } 00192 sub get_desc_ { my $self = shift; return $$self[5]; } 00193 sub set_desc_ { my($self, $val) = @_; $$self[5] = $val; } 00194 00195 sub get_desc { 00196 my $self = shift; 00197 my $clone = $self->get_clone_(); 00198 if($clone) { 00199 return $clone->get_desc_(); 00200 } else { 00201 return $self->get_desc_(); 00202 } 00203 } 00204 00205 sub set_desc { 00206 my($self, $val) = @_; 00207 00208 my $db = $self->get_db(); 00209 if($db) { 00210 $db->begin_txn_modifications(); 00211 00212 my $clone = $self->make_clone_(); 00213 $clone->set_desc_($val); 00214 $db->record_txn_modification_($self); 00215 $db->end_txn_modifications(); 00216 } else { 00217 $self->set_desc_($val); 00218 } 00219 } 00220 sub get_status_ { my $self = shift; return $$self[6]; } 00221 sub set_status_ { my($self, $val) = @_; $$self[6] = $val; } 00222 00223 sub get_status { 00224 my $self = shift; 00225 my $clone = $self->get_clone_(); 00226 if($clone) { 00227 return $clone->get_status_(); 00228 } else { 00229 return $self->get_status_(); 00230 } 00231 } 00232 00233 sub set_status { 00234 my($self, $val) = @_; 00235 00236 my $db = $self->get_db(); 00237 if($db) { 00238 $db->begin_txn_modifications(); 00239 00240 my $clone = $self->make_clone_(); 00241 $clone->set_status_($val); 00242 $db->record_txn_modification_($self); 00243 $db->end_txn_modifications(); 00244 } else { 00245 $self->set_status_($val); 00246 } 00247 } 00248 sub get_splits_ { my $self = shift; return $$self[7]; } 00249 sub set_splits_ { my($self, $val) = @_; $$self[7] = $val; } 00250 00251 sub get_splits { my $self = shift; return $$self[7]; } 00252 00253 00254 #### CBBlib::Split slot methods ########################### 00255 00256 package CBBlib::Split; 00257 use strict; 00258 00259 sub make_internals_ { 00260 return [undef, 00261 undef, 00262 undef, 00263 undef, 00264 undef, 00265 undef, 00266 undef, 00267 undef, 00268 '']; 00269 } 00270 00271 sub get_txn_ { my $self = shift; return $$self[0]; } 00272 sub set_txn_ { my($self, $val) = @_; $$self[0] = $val; } 00273 00274 sub get_txn { my $self = shift; return $$self[0]; } 00275 00276 sub get_clone_ { my $self = shift; return $$self[1]; } 00277 sub set_clone_ { my($self, $val) = @_; $$self[1] = $val; } 00278 00279 sub get_pos__ { my $self = shift; return $$self[2]; } 00280 sub set_pos__ { my($self, $val) = @_; $$self[2] = $val; } 00281 00282 sub get_pos_ { 00283 my $self = shift; 00284 my $clone = $self->get_clone_(); 00285 if($clone) { 00286 return $clone->get_pos__(); 00287 } else { 00288 return $self->get_pos__(); 00289 } 00290 } 00291 00292 sub set_pos_ { 00293 my($self, $val) = @_; 00294 00295 my $db = $self->get_db(); 00296 if($db) { 00297 $db->begin_txn_modifications(); 00298 00299 my $clone = $self->make_clone_(); 00300 $clone->set_pos__($val); 00301 $db->record_txn_modification_($self); 00302 $db->end_txn_modifications(); 00303 } else { 00304 $self->set_pos__($val); 00305 } 00306 } 00307 sub get_dest_ { my $self = shift; return $$self[3]; } 00308 sub set_dest_ { my($self, $val) = @_; $$self[3] = $val; } 00309 00310 sub get_dest { 00311 my $self = shift; 00312 my $clone = $self->get_clone_(); 00313 if($clone) { 00314 return $clone->get_dest_(); 00315 } else { 00316 return $self->get_dest_(); 00317 } 00318 } 00319 00320 sub set_dest { 00321 my($self, $val) = @_; 00322 00323 my $db = $self->get_db(); 00324 if($db) { 00325 $db->begin_txn_modifications(); 00326 00327 my $clone = $self->make_clone_(); 00328 $clone->set_dest_($val); 00329 $db->record_txn_modification_($self); 00330 $db->end_txn_modifications(); 00331 } else { 00332 $self->set_dest_($val); 00333 } 00334 } 00335 sub get_notes_ { my $self = shift; return $$self[4]; } 00336 sub set_notes_ { my($self, $val) = @_; $$self[4] = $val; } 00337 00338 sub get_notes { 00339 my $self = shift; 00340 my $clone = $self->get_clone_(); 00341 if($clone) { 00342 return $clone->get_notes_(); 00343 } else { 00344 return $self->get_notes_(); 00345 } 00346 } 00347 00348 sub set_notes { 00349 my($self, $val) = @_; 00350 00351 my $db = $self->get_db(); 00352 if($db) { 00353 $db->begin_txn_modifications(); 00354 00355 my $clone = $self->make_clone_(); 00356 $clone->set_notes_($val); 00357 $db->record_txn_modification_($self); 00358 $db->end_txn_modifications(); 00359 } else { 00360 $self->set_notes_($val); 00361 } 00362 } 00363 sub get_debit_ { my $self = shift; return $$self[5]; } 00364 sub set_debit_ { my($self, $val) = @_; $$self[5] = $val; } 00365 00366 sub get_debit { 00367 my $self = shift; 00368 my $clone = $self->get_clone_(); 00369 if($clone) { 00370 return $clone->get_debit_(); 00371 } else { 00372 return $self->get_debit_(); 00373 } 00374 } 00375 00376 sub set_debit { 00377 my($self, $val) = @_; 00378 00379 my $db = $self->get_db(); 00380 if($db) { 00381 $db->begin_txn_modifications(); 00382 00383 my $clone = $self->make_clone_(); 00384 $clone->set_debit_($val); 00385 $db->record_txn_modification_($self); 00386 $db->end_txn_modifications(); 00387 } else { 00388 $self->set_debit_($val); 00389 } 00390 } 00391 sub get_credit_ { my $self = shift; return $$self[6]; } 00392 sub set_credit_ { my($self, $val) = @_; $$self[6] = $val; } 00393 00394 sub get_credit { 00395 my $self = shift; 00396 my $clone = $self->get_clone_(); 00397 if($clone) { 00398 return $clone->get_credit_(); 00399 } else { 00400 return $self->get_credit_(); 00401 } 00402 } 00403 00404 sub set_credit { 00405 my($self, $val) = @_; 00406 00407 my $db = $self->get_db(); 00408 if($db) { 00409 $db->begin_txn_modifications(); 00410 00411 my $clone = $self->make_clone_(); 00412 $clone->set_credit_($val); 00413 $db->record_txn_modification_($self); 00414 $db->end_txn_modifications(); 00415 } else { 00416 $self->set_credit_($val); 00417 } 00418 } 00419 sub get_desc_ { my $self = shift; return $$self[7]; } 00420 sub set_desc_ { my($self, $val) = @_; $$self[7] = $val; } 00421 00422 sub get_desc { 00423 my $self = shift; 00424 my $clone = $self->get_clone_(); 00425 if($clone) { 00426 return $clone->get_desc_(); 00427 } else { 00428 return $self->get_desc_(); 00429 } 00430 } 00431 00432 sub set_desc { 00433 my($self, $val) = @_; 00434 00435 my $db = $self->get_db(); 00436 if($db) { 00437 $db->begin_txn_modifications(); 00438 00439 my $clone = $self->make_clone_(); 00440 $clone->set_desc_($val); 00441 $db->record_txn_modification_($self); 00442 $db->end_txn_modifications(); 00443 } else { 00444 $self->set_desc_($val); 00445 } 00446 } 00447 sub get_status_ { my $self = shift; return $$self[8]; } 00448 sub set_status_ { my($self, $val) = @_; $$self[8] = $val; } 00449 00450 sub get_status { 00451 my $self = shift; 00452 my $clone = $self->get_clone_(); 00453 if($clone) { 00454 return $clone->get_status_(); 00455 } else { 00456 return $self->get_status_(); 00457 } 00458 } 00459 00460 sub set_status { 00461 my($self, $val) = @_; 00462 00463 my $db = $self->get_db(); 00464 if($db) { 00465 $db->begin_txn_modifications(); 00466 00467 my $clone = $self->make_clone_(); 00468 $clone->set_status_($val); 00469 $db->record_txn_modification_($self); 00470 $db->end_txn_modifications(); 00471 } else { 00472 $self->set_status_($val); 00473 } 00474 } 00475 00476 #### CBBlib::Db slot methods ########################### 00477 00478 package CBBlib::Db; 00479 use strict; 00480 00481 sub make_internals_ { 00482 return [[], 00483 [], 00484 undef, 00485 [], 00486 undef, 00487 0, 00488 {}]; 00489 } 00490 00491 sub get_accts_ { my $self = shift; return $$self[0]; } 00492 sub set_accts_ { my($self, $val) = @_; $$self[0] = $val; } 00493 00494 sub get_accts { my $self = shift; return $$self[0]; } 00495 00496 sub get_cats_ { my $self = shift; return $$self[1]; } 00497 sub set_cats_ { my($self, $val) = @_; $$self[1] = $val; } 00498 00499 sub get_cats { my $self = shift; return $$self[1]; } 00500 00501 sub get_default_sink_ { my $self = shift; return $$self[2]; } 00502 sub set_default_sink_ { my($self, $val) = @_; $$self[2] = $val; } 00503 00504 sub get_default_sink { my $self = shift; return $$self[2]; } 00505 00506 sub set_default_sink { my($self, $val) = @_; $$self[2] = $val; } 00507 00508 sub get_txns_ { my $self = shift; return $$self[3]; } 00509 sub set_txns_ { my($self, $val) = @_; $$self[3] = $val; } 00510 00511 sub get_txns { my $self = shift; return $$self[3]; } 00512 00513 sub get_modified_txns_ { my $self = shift; return $$self[4]; } 00514 sub set_modified_txns_ { my($self, $val) = @_; $$self[4] = $val; } 00515 00516 sub get_modified_txns_level_ { my $self = shift; return $$self[5]; } 00517 sub set_modified_txns_level_ { my($self, $val) = @_; $$self[5] = $val; } 00518 00519 sub get_callbacks_hash_ { my $self = shift; return $$self[6]; } 00520 sub set_callbacks_hash_ { my($self, $val) = @_; $$self[6] = $val; } 00521 00522 1; 00523 __END__
