Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

WBRASWELL / RPerl-3.402000 / lib / RPerl / Test / OO / MyClass01Good.pm 

            

              
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

              
# [[[ PREPROCESSOR ]]]
# <<< TYPE_CHECKING: TRACE >>>
# [[[ HEADER ]]]
use RPerl;
package RPerl::Test::OO::MyClass01Good;
use strict;
use warnings;
our $VERSION = 0.001_000;
# [[[ OO INHERITANCE ]]]
use parent qw(RPerl::CompileUnit::Module::Class);
use RPerl::CompileUnit::Module::Class;
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls)  # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars)  # USER DEFAULT 2: allow single-quoted control characters & sigils
## no critic qw(ProhibitMultiplePackages ProhibitReusedNames ProhibitPackageVars)  # USER DEFAULT 8: allow additional packages
# [[[ OO PROPERTIES ]]]
our hashref $properties = { bar => my integer $TYPED_bar = 23 };
# [[[ SUBROUTINES & OO METHODS ]]]
sub double_bar_save {
    { my void::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MyClass01Good $self ) = @ARG;
    $self->{bar} = $self->{bar} * 2;
    return;
}
sub double_bar_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MyClass01Good $self ) = @ARG;
    return $self->{bar} * 2;
}
1;    # end of class
# [[[ HEADER ]]]
use RPerl;
package RPerl::Test::OO::MySubclass01Good;
use strict;
use warnings;
our $VERSION = 0.001_000;
# [[[ OO INHERITANCE ]]]
use parent -norequire, qw(RPerl::Test::OO::MyClass01Good);  # CORRECT: EDITS @ISA ONLY
INIT { RPerl::Test::OO::MyClass01Good->import(); }  # CORRECT: IMPORTS ONLY
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls)  # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars)  # USER DEFAULT 2: allow single-quoted control characters & sigils
## no critic qw(ProhibitMultiplePackages ProhibitReusedNames ProhibitPackageVars)  # USER DEFAULT 8: allow additional packages
# [[[ OO PROPERTIES ]]]
our hashref $properties = { bax => my integer $TYPED_bax = 123 };  # NEED FIX: bax should be readonly, need to change into a constant???
# [[[ SUBROUTINES & OO METHODS ]]]
sub triple_bax_save {
    { my void::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self ) = @ARG;
    $self->{bax} = $self->{bax} * 3;
    return;
}
sub triple_bax_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self ) = @ARG;
    return $self->{bax} * 3;
}
sub add_bax_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self, my integer $addend ) = @ARG;
    if ( $addend < 10 ) {
        return $self->{bax} + $addend;
    }
    return $self->{bax} + 3;
}
sub subtract_bax_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self, my integer $subtrahend ) = @ARG;
    if ( $subtrahend < 10 ) {
        return $self->{bax} - $subtrahend;
    }
    return $self->{bax} - 3;
}
sub multiply_bax_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self, my integer $multiplier ) = @ARG;
    if ( $multiplier < 10 ) {
        return $self->{bax} * $multiplier;
    }
    return $self->{bax} * 3;
}
sub multiply_multiply_bax_return {
    { my integer::method $RETURN_TYPE };
    ( my RPerl::Test::OO::MySubclass01Good $self, my integer $multiplier, my integer $multiplier2 ) = @ARG;
    if ( $multiplier < 10 ) {
        return $self->{bax} * $multiplier * $multiplier2;
    }
    return $self->{bax} * 3 * $multiplier2;
}
1;    # end of subclass