The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

WBRASWELL / RPerl-3.402000 / script / development / OO / unused / MyClass01LowRPerlOld.cpp 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

              
// [[[ HEADER ]]]
using std::cout;  using std::cerr;  using std::endl;
#ifndef __CPP__INCLUDED__MyClass01LowRPerlOld_cpp
#define __CPP__INCLUDED__MyClass01LowRPerlOld_cpp 0.001_000
// [[[ INCLUDES ]]]
#include "MyClass01LowRPerlOld.h"
# ifdef __PERL__TYPES
Purposefully_die_from_a_compile-time_error,_due_to____PERL__TYPES_being_defined.__We_need_to_define_only___CPP__TYPES_in_this_file!
# elif defined __CPP__TYPES
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[ SUBROUTINES & OO METHODS ]]]
void MyClass01LowRPerlOld::double_bar_save() {
    this->bar = this->bar * 2;
}
integer MyClass01LowRPerlOld::double_bar_return() {
    return this->bar * 2;
}
// [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]]
# else
Purposefully_die_from_a_compile-time_error,_due_to_neither___PERL__TYPES_nor___CPP__TYPES_being_defined.__We_need_to_define_only___CPP__TYPES_in_this_file!
# endif
#endif
// end of class
// [[[ ADDITIONAL CLASSES ]]]
// [[[ HEADER ]]]
using std::cout;  using std::cerr;  using std::endl;
#ifndef __CPP__INCLUDED__MySubclass01LowRPerlOld_cpp
#define __CPP__INCLUDED__MySubclass01LowRPerlOld_cpp 0.001_000
// [[[ INCLUDES ]]]
#include "MyClass01LowRPerlOld.h"
# ifdef __PERL__TYPES
Purposefully_die_from_a_compile-time_error,_due_to____PERL__TYPES_being_defined.__We_need_to_define_only___CPP__TYPES_in_this_file!
# elif defined __CPP__TYPES
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]]
// [[[ SUBROUTINES & OO METHODS ]]]
void MySubclass01LowRPerlOld::triple_bax_save() {
    this->bax = this->bax * 3;
}
integer MySubclass01LowRPerlOld::triple_bax_return() {
    return this->bax * 3;
}
integer MySubclass01LowRPerlOld::multiply_bax_return(integer multiplier) {
    if ( multiplier < 10 ) {
        return this->bax * multiplier;
    }
    return this->bax * 3;
}
// [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]]
# else
Purposefully_die_from_a_compile-time_error,_due_to_neither___PERL__TYPES_nor___CPP__TYPES_being_defined.__We_need_to_define_only___CPP__TYPES_in_this_file!
# endif
#endif
// end of class