File Coverage

blib/lib/RPerl/Operation/Expression/Operator/Ternary.pm
Criterion Covered Total %
statement 35 46 76.0
branch 1 2 50.0
condition n/a
subroutine 6 8 75.0
pod n/a
total 42 56 75.0


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2             package RPerl::Operation::Expression::Operator::Ternary;
3 4     4   22 use strict;
  4         10  
  4         95  
4 4     4   16 use warnings;
  4         9  
  4         78  
5 4     4   301 use RPerl::AfterSubclass;
  4         9  
  4         515  
6             our $VERSION = 0.001_000;
7              
8             # [[[ OO INHERITANCE ]]]
9 4     4   24 use parent qw(RPerl::Operation::Expression::Operator);
  4         9  
  4         19  
10 4     4   230 use RPerl::Operation::Expression::Operator;
  4         6  
  4         1116  
11              
12             # [[[ CRITICS ]]]
13             ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator
14             ## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single-quoted control characters & sigils
15              
16             # [[[ OO PROPERTIES ]]]
17             our hashref $properties = {};
18              
19             # [[[ SUBROUTINES & OO METHODS ]]]
20              
21             sub ast_to_rperl__generate {
22 6     6   13 { my string_hashref::method $RETURN_TYPE };
  6         10  
23 6         13 ( my object $self, my string_hashref $modes) = @ARG;
24 6         14 my string_hashref $rperl_source_group = { PMC => q{} };
25              
26             # RPerl::diag( 'in Operator::Ternary->ast_to_rperl__generate(), received $self = ' . "\n" . RPerl::Parser::rperl_ast__dump($self) . "\n" );
27              
28 6         13 my string $self_class = ref $self;
29 6 50       14 if ( $self_class eq 'Operator_119' ) { # Operator -> SubExpression OP18_TERNARY VariableOrLiteral COLON VariableOrLiteral
30 6         28 my object $subexpression = $self->{children}->[0];
31 6         11 my string $ternary = $self->{children}->[1];
32 6         13 my object $variable_or_literal0 = $self->{children}->[2];
33 6         12 my string $colon = $self->{children}->[3];
34 6         10 my object $variable_or_literal1 = $self->{children}->[4];
35              
36 6         113 my string_hashref $rperl_source_subgroup
37             = $subexpression->ast_to_rperl__generate($modes);
38 6         120 RPerl::Generator::source_group_append( $rperl_source_group,
39             $rperl_source_subgroup );
40 6         12 $rperl_source_group->{PMC} .= q{ } . $ternary . q{ };
41 6         126 $rperl_source_subgroup
42             = $variable_or_literal0->ast_to_rperl__generate($modes);
43 6         119 RPerl::Generator::source_group_append( $rperl_source_group,
44             $rperl_source_subgroup );
45 6         14 $rperl_source_group->{PMC} .= q{ } . $colon . q{ };
46 6         114 $rperl_source_subgroup
47             = $variable_or_literal1->ast_to_rperl__generate($modes);
48 6         121 RPerl::Generator::source_group_append( $rperl_source_group,
49             $rperl_source_subgroup );
50             }
51             else {
52 0         0 die RPerl::Parser::rperl_rule__replace(
53             'ERROR ECOGEASRP00, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: Grammar rule '
54             . $self_class
55             . ' found where Operator_119 expected, dying' )
56             . "\n";
57             }
58 6         29 return $rperl_source_group;
59             }
60              
61             sub ast_to_cpp__generate__CPPOPS_PERLTYPES {
62 0     0     { my string_hashref::method $RETURN_TYPE };
  0            
63 0           ( my object $self, my string_hashref $modes) = @ARG;
64 0           my string_hashref $cpp_source_group
65             = { CPP =>
66             q{// <<< RP::O::E::O::T __DUMMY_SOURCE_CODE CPPOPS_PERLTYPES >>>}
67             . "\n" };
68              
69             #...
70 0           return $cpp_source_group;
71             }
72              
73             sub ast_to_cpp__generate__CPPOPS_CPPTYPES {
74 0     0     { my string_hashref::method $RETURN_TYPE };
  0            
75 0           ( my object $self, my string_hashref $modes) = @ARG;
76 0           my string_hashref $cpp_source_group
77             = { CPP =>
78             q{// <<< RP::O::E::O::T __DUMMY_SOURCE_CODE CPPOPS_CPPTYPES >>>}
79             . "\n" };
80              
81             #...
82 0           return $cpp_source_group;
83             }
84              
85             1; # end of class