GnuCash  2.6.99
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups Pages
CBBlib-auto.pl
1 #!/usr/bin/perl -w
2 # This code is automatically generated. Do not edit.
3 
4 
5 #### CBBlib::Acct slot methods ###########################
6 
7 package CBBlib::Acct;
8 use strict;
9 
10 sub make_internals_ {
11  return [undef,
12  undef,
13  undef,
14  undef,
15  0,
16  0,
17  0];
18 }
19 
20 sub get_db_ { my $self = shift; return $$self[0]; }
21 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; }
22 
23 sub get_db { my $self = shift; return $$self[0]; }
24 
25 sub get_name_ { my $self = shift; return $$self[1]; }
26 sub set_name_ { my($self, $val) = @_; $$self[1] = $val; }
27 
28 sub get_name { my $self = shift; return $$self[1]; }
29 
30 sub set_name { my($self, $val) = @_; $$self[1] = $val; }
31 
32 sub get_notes_ { my $self = shift; return $$self[2]; }
33 sub set_notes_ { my($self, $val) = @_; $$self[2] = $val; }
34 
35 sub get_notes { my $self = shift; return $$self[2]; }
36 
37 sub set_notes { my($self, $val) = @_; $$self[2] = $val; }
38 
39 sub get_ledger_ { my $self = shift; return $$self[3]; }
40 sub set_ledger_ { my($self, $val) = @_; $$self[3] = $val; }
41 
42 sub get_ledger_usage_count_ { my $self = shift; return $$self[4]; }
43 sub set_ledger_usage_count_ { my($self, $val) = @_; $$self[4] = $val; }
44 
45 sub get_cleared_balance_ { my $self = shift; return $$self[5]; }
46 sub set_cleared_balance_ { my($self, $val) = @_; $$self[5] = $val; }
47 
48 sub get_cleared_balance { my $self = shift; return $$self[5]; }
49 
50 sub get_final_balance_ { my $self = shift; return $$self[6]; }
51 sub set_final_balance_ { my($self, $val) = @_; $$self[6] = $val; }
52 
53 sub get_final_balance { my $self = shift; return $$self[6]; }
54 
55 
56 #### CBBlib::Cat slot methods ###########################
57 
58 package CBBlib::Cat;
59 use strict;
60 
61 sub make_internals_ {
62  return [undef,
63  undef,
64  undef,
65  undef,
66  0,
67  0,
68  0];
69 }
70 
71 sub get_db_ { my $self = shift; return $$self[0]; }
72 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; }
73 
74 sub get_db { my $self = shift; return $$self[0]; }
75 
76 sub get_name_ { my $self = shift; return $$self[1]; }
77 sub set_name_ { my($self, $val) = @_; $$self[1] = $val; }
78 
79 sub get_name { my $self = shift; return $$self[1]; }
80 
81 sub set_name { my($self, $val) = @_; $$self[1] = $val; }
82 
83 sub get_notes_ { my $self = shift; return $$self[2]; }
84 sub set_notes_ { my($self, $val) = @_; $$self[2] = $val; }
85 
86 sub get_notes { my $self = shift; return $$self[2]; }
87 
88 sub set_notes { my($self, $val) = @_; $$self[2] = $val; }
89 
90 sub get_ledger_ { my $self = shift; return $$self[3]; }
91 sub set_ledger_ { my($self, $val) = @_; $$self[3] = $val; }
92 
93 sub get_ledger_usage_count_ { my $self = shift; return $$self[4]; }
94 sub set_ledger_usage_count_ { my($self, $val) = @_; $$self[4] = $val; }
95 
96 sub get_cleared_balance_ { my $self = shift; return $$self[5]; }
97 sub set_cleared_balance_ { my($self, $val) = @_; $$self[5] = $val; }
98 
99 sub get_cleared_balance { my $self = shift; return $$self[5]; }
100 
101 sub get_final_balance_ { my $self = shift; return $$self[6]; }
102 sub set_final_balance_ { my($self, $val) = @_; $$self[6] = $val; }
103 
104 sub get_final_balance { my $self = shift; return $$self[6]; }
105 
106 
107 #### CBBlib::Txn slot methods #############################
108 
109 package CBBlib::Txn;
110 use strict;
111 
112 sub make_internals_ {
113  return [undef,
114  undef,
115  undef,
116  undef,
117  undef,
118  undef,
119  '',
120  []];
121 }
122 
123 sub get_db_ { my $self = shift; return $$self[0]; }
124 sub set_db_ { my($self, $val) = @_; $$self[0] = $val; }
125 
126 sub get_db { my $self = shift; return $$self[0]; }
127 
128 sub get_clone_ { my $self = shift; return $$self[1]; }
129 sub set_clone_ { my($self, $val) = @_; $$self[1] = $val; }
130 
131 sub get_date_ { my $self = shift; return $$self[2]; }
132 sub set_date_ { my($self, $val) = @_; $$self[2] = $val; }
133 
134 sub get_date {
135  my $self = shift;
136  my $clone = $self->get_clone_();
137  if($clone) {
138  return $clone->get_date_();
139  } else {
140  return $self->get_date_();
141  }
142 }
143 
144 sub set_date {
145  my($self, $val) = @_;
146 
147  my $db = $self->get_db();
148  if($db) {
149  $db->begin_txn_modifications();
150 
151  my $clone = $self->make_clone_();
152  $clone->set_date_($val);
153  $db->record_txn_modification_($self);
154  $db->end_txn_modifications();
155  } else {
156  $self->set_date_($val);
157  }
158 }
159 sub get_source_ { my $self = shift; return $$self[3]; }
160 sub set_source_ { my($self, $val) = @_; $$self[3] = $val; }
161 
162 sub get_source { my $self = shift; return $$self[3]; }
163 
164 sub get_checkno_ { my $self = shift; return $$self[4]; }
165 sub set_checkno_ { my($self, $val) = @_; $$self[4] = $val; }
166 
167 sub get_checkno {
168  my $self = shift;
169  my $clone = $self->get_clone_();
170  if($clone) {
171  return $clone->get_checkno_();
172  } else {
173  return $self->get_checkno_();
174  }
175 }
176 
177 sub set_checkno {
178  my($self, $val) = @_;
179 
180  my $db = $self->get_db();
181  if($db) {
182  $db->begin_txn_modifications();
183 
184  my $clone = $self->make_clone_();
185  $clone->set_checkno_($val);
186  $db->record_txn_modification_($self);
187  $db->end_txn_modifications();
188  } else {
189  $self->set_checkno_($val);
190  }
191 }
192 sub get_desc_ { my $self = shift; return $$self[5]; }
193 sub set_desc_ { my($self, $val) = @_; $$self[5] = $val; }
194 
195 sub get_desc {
196  my $self = shift;
197  my $clone = $self->get_clone_();
198  if($clone) {
199  return $clone->get_desc_();
200  } else {
201  return $self->get_desc_();
202  }
203 }
204 
205 sub set_desc {
206  my($self, $val) = @_;
207 
208  my $db = $self->get_db();
209  if($db) {
210  $db->begin_txn_modifications();
211 
212  my $clone = $self->make_clone_();
213  $clone->set_desc_($val);
214  $db->record_txn_modification_($self);
215  $db->end_txn_modifications();
216  } else {
217  $self->set_desc_($val);
218  }
219 }
220 sub get_status_ { my $self = shift; return $$self[6]; }
221 sub set_status_ { my($self, $val) = @_; $$self[6] = $val; }
222 
223 sub get_status {
224  my $self = shift;
225  my $clone = $self->get_clone_();
226  if($clone) {
227  return $clone->get_status_();
228  } else {
229  return $self->get_status_();
230  }
231 }
232 
233 sub set_status {
234  my($self, $val) = @_;
235 
236  my $db = $self->get_db();
237  if($db) {
238  $db->begin_txn_modifications();
239 
240  my $clone = $self->make_clone_();
241  $clone->set_status_($val);
242  $db->record_txn_modification_($self);
243  $db->end_txn_modifications();
244  } else {
245  $self->set_status_($val);
246  }
247 }
248 sub get_splits_ { my $self = shift; return $$self[7]; }
249 sub set_splits_ { my($self, $val) = @_; $$self[7] = $val; }
250 
251 sub get_splits { my $self = shift; return $$self[7]; }
252 
253 
254 #### CBBlib::Split slot methods ###########################
255 
256 package CBBlib::Split;
257 use strict;
258 
259 sub make_internals_ {
260  return [undef,
261  undef,
262  undef,
263  undef,
264  undef,
265  undef,
266  undef,
267  undef,
268  ''];
269 }
270 
271 sub get_txn_ { my $self = shift; return $$self[0]; }
272 sub set_txn_ { my($self, $val) = @_; $$self[0] = $val; }
273 
274 sub get_txn { my $self = shift; return $$self[0]; }
275 
276 sub get_clone_ { my $self = shift; return $$self[1]; }
277 sub set_clone_ { my($self, $val) = @_; $$self[1] = $val; }
278 
279 sub get_pos__ { my $self = shift; return $$self[2]; }
280 sub set_pos__ { my($self, $val) = @_; $$self[2] = $val; }
281 
282 sub get_pos_ {
283  my $self = shift;
284  my $clone = $self->get_clone_();
285  if($clone) {
286  return $clone->get_pos__();
287  } else {
288  return $self->get_pos__();
289  }
290 }
291 
292 sub set_pos_ {
293  my($self, $val) = @_;
294 
295  my $db = $self->get_db();
296  if($db) {
297  $db->begin_txn_modifications();
298 
299  my $clone = $self->make_clone_();
300  $clone->set_pos__($val);
301  $db->record_txn_modification_($self);
302  $db->end_txn_modifications();
303  } else {
304  $self->set_pos__($val);
305  }
306 }
307 sub get_dest_ { my $self = shift; return $$self[3]; }
308 sub set_dest_ { my($self, $val) = @_; $$self[3] = $val; }
309 
310 sub get_dest {
311  my $self = shift;
312  my $clone = $self->get_clone_();
313  if($clone) {
314  return $clone->get_dest_();
315  } else {
316  return $self->get_dest_();
317  }
318 }
319 
320 sub set_dest {
321  my($self, $val) = @_;
322 
323  my $db = $self->get_db();
324  if($db) {
325  $db->begin_txn_modifications();
326 
327  my $clone = $self->make_clone_();
328  $clone->set_dest_($val);
329  $db->record_txn_modification_($self);
330  $db->end_txn_modifications();
331  } else {
332  $self->set_dest_($val);
333  }
334 }
335 sub get_notes_ { my $self = shift; return $$self[4]; }
336 sub set_notes_ { my($self, $val) = @_; $$self[4] = $val; }
337 
338 sub get_notes {
339  my $self = shift;
340  my $clone = $self->get_clone_();
341  if($clone) {
342  return $clone->get_notes_();
343  } else {
344  return $self->get_notes_();
345  }
346 }
347 
348 sub set_notes {
349  my($self, $val) = @_;
350 
351  my $db = $self->get_db();
352  if($db) {
353  $db->begin_txn_modifications();
354 
355  my $clone = $self->make_clone_();
356  $clone->set_notes_($val);
357  $db->record_txn_modification_($self);
358  $db->end_txn_modifications();
359  } else {
360  $self->set_notes_($val);
361  }
362 }
363 sub get_debit_ { my $self = shift; return $$self[5]; }
364 sub set_debit_ { my($self, $val) = @_; $$self[5] = $val; }
365 
366 sub get_debit {
367  my $self = shift;
368  my $clone = $self->get_clone_();
369  if($clone) {
370  return $clone->get_debit_();
371  } else {
372  return $self->get_debit_();
373  }
374 }
375 
376 sub set_debit {
377  my($self, $val) = @_;
378 
379  my $db = $self->get_db();
380  if($db) {
381  $db->begin_txn_modifications();
382 
383  my $clone = $self->make_clone_();
384  $clone->set_debit_($val);
385  $db->record_txn_modification_($self);
386  $db->end_txn_modifications();
387  } else {
388  $self->set_debit_($val);
389  }
390 }
391 sub get_credit_ { my $self = shift; return $$self[6]; }
392 sub set_credit_ { my($self, $val) = @_; $$self[6] = $val; }
393 
394 sub get_credit {
395  my $self = shift;
396  my $clone = $self->get_clone_();
397  if($clone) {
398  return $clone->get_credit_();
399  } else {
400  return $self->get_credit_();
401  }
402 }
403 
404 sub set_credit {
405  my($self, $val) = @_;
406 
407  my $db = $self->get_db();
408  if($db) {
409  $db->begin_txn_modifications();
410 
411  my $clone = $self->make_clone_();
412  $clone->set_credit_($val);
413  $db->record_txn_modification_($self);
414  $db->end_txn_modifications();
415  } else {
416  $self->set_credit_($val);
417  }
418 }
419 sub get_desc_ { my $self = shift; return $$self[7]; }
420 sub set_desc_ { my($self, $val) = @_; $$self[7] = $val; }
421 
422 sub get_desc {
423  my $self = shift;
424  my $clone = $self->get_clone_();
425  if($clone) {
426  return $clone->get_desc_();
427  } else {
428  return $self->get_desc_();
429  }
430 }
431 
432 sub set_desc {
433  my($self, $val) = @_;
434 
435  my $db = $self->get_db();
436  if($db) {
437  $db->begin_txn_modifications();
438 
439  my $clone = $self->make_clone_();
440  $clone->set_desc_($val);
441  $db->record_txn_modification_($self);
442  $db->end_txn_modifications();
443  } else {
444  $self->set_desc_($val);
445  }
446 }
447 sub get_status_ { my $self = shift; return $$self[8]; }
448 sub set_status_ { my($self, $val) = @_; $$self[8] = $val; }
449 
450 sub get_status {
451  my $self = shift;
452  my $clone = $self->get_clone_();
453  if($clone) {
454  return $clone->get_status_();
455  } else {
456  return $self->get_status_();
457  }
458 }
459 
460 sub set_status {
461  my($self, $val) = @_;
462 
463  my $db = $self->get_db();
464  if($db) {
465  $db->begin_txn_modifications();
466 
467  my $clone = $self->make_clone_();
468  $clone->set_status_($val);
469  $db->record_txn_modification_($self);
470  $db->end_txn_modifications();
471  } else {
472  $self->set_status_($val);
473  }
474 }
475 
476 #### CBBlib::Db slot methods ###########################
477 
478 package CBBlib::Db;
479 use strict;
480 
481 sub make_internals_ {
482  return [[],
483  [],
484  undef,
485  [],
486  undef,
487  0,
488  {}];
489 }
490 
491 sub get_accts_ { my $self = shift; return $$self[0]; }
492 sub set_accts_ { my($self, $val) = @_; $$self[0] = $val; }
493 
494 sub get_accts { my $self = shift; return $$self[0]; }
495 
496 sub get_cats_ { my $self = shift; return $$self[1]; }
497 sub set_cats_ { my($self, $val) = @_; $$self[1] = $val; }
498 
499 sub get_cats { my $self = shift; return $$self[1]; }
500 
501 sub get_default_sink_ { my $self = shift; return $$self[2]; }
502 sub set_default_sink_ { my($self, $val) = @_; $$self[2] = $val; }
503 
504 sub get_default_sink { my $self = shift; return $$self[2]; }
505 
506 sub set_default_sink { my($self, $val) = @_; $$self[2] = $val; }
507 
508 sub get_txns_ { my $self = shift; return $$self[3]; }
509 sub set_txns_ { my($self, $val) = @_; $$self[3] = $val; }
510 
511 sub get_txns { my $self = shift; return $$self[3]; }
512 
513 sub get_modified_txns_ { my $self = shift; return $$self[4]; }
514 sub set_modified_txns_ { my($self, $val) = @_; $$self[4] = $val; }
515 
516 sub get_modified_txns_level_ { my $self = shift; return $$self[5]; }
517 sub set_modified_txns_level_ { my($self, $val) = @_; $$self[5] = $val; }
518 
519 sub get_callbacks_hash_ { my $self = shift; return $$self[6]; }
520 sub set_callbacks_hash_ { my($self, $val) = @_; $$self[6] = $val; }
521 
522 1;
523 __END__
Generated by   doxygen 1.8.6