File Coverage

blib/lib/RPerl/Operation/Expression/Operator/Named/Exp.pm
Criterion Covered Total %
statement 46 59 77.9
branch 4 16 25.0
condition n/a
subroutine 10 11 90.9
pod n/a
total 60 86 69.7


line stmt bran cond sub pod time code
1             # [[[ DOCUMENTATION ]]]
2             # http://perldoc.perl.org/functions/exp.html
3             # SUPPORTED: exp VALUE
4             # NOT SUPPORTED: exp
5              
6             # [[[ HEADER ]]]
7             package RPerl::Operation::Expression::Operator::Named::Exp;
8 4     4   24 use strict;
  4         8  
  4         98  
9 4     4   17 use warnings;
  4         9  
  4         79  
10 4     4   20 use RPerl::AfterSubclass;
  4         9  
  4         506  
11             our $VERSION = 0.001_000;
12              
13             # [[[ OO INHERITANCE ]]]
14 4     4   26 use parent qw(RPerl::Operation::Expression::Operator::Named);
  4         9  
  4         21  
15 4     4   221 use RPerl::Operation::Expression::Operator::Named;
  4         9  
  4         106  
16              
17             # [[[ CRITICS ]]]
18             ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print operator
19             ## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single-quoted control characters & sigils
20             ## no critic qw(ProhibitConstantPragma ProhibitMagicNumbers) # USER DEFAULT 3: allow constants
21              
22             # [[[ CONSTANTS ]]]
23 4     4   21 use constant NAME => my string $TYPED_NAME = 'exp';
  4         10  
  4         221  
24              
25             # DEV NOTE: with min & max args of 1, compile-time args length checking short-circuited first by Parse Phase 0 ERROR ECOPAPL03 'Useless use of FOO in void context'
26             # or ERROR ECOPARP00 'Unexpected Token: ,'; short-circuited second by ERROR ECOGEASRP13 on Operator_95 & OperatorVoid_134 multiple-argument productions below;
27             # can't figure out how to create test which gets past ECOPAPL03 & ECOPARP00 to trigger ECOGEASRP13
28 4     4   25 use constant ARGUMENTS_MIN => my integer $TYPED_ARGUMENTS_MIN = 1;
  4         10  
  4         229  
29 4     4   27 use constant ARGUMENTS_MAX => my integer $TYPED_ARGUMENTS_MAX = 1;
  4         38  
  4         2025  
30              
31             # [[[ OO PROPERTIES ]]]
32             our hashref $properties = {};
33              
34             # [[[ OO METHODS & SUBROUTINES ]]]
35              
36             sub ast_to_rperl__generate {
37 1     1   4 { my string_hashref::method $RETURN_TYPE };
  1         3  
38 1         6 ( my object $self, my object $operator_named, my string_hashref $modes) = @ARG;
39 1         7 my string_hashref $rperl_source_group = { PMC => q{} };
40              
41             # RPerl::diag( 'in Operator::Named::AbsoluteValue->ast_to_rperl__generate(), received $self = ' . "\n" . RPerl::Parser::rperl_ast__dump($self) . "\n" );
42             # RPerl::diag( 'in Operator::Named::AbsoluteValue->ast_to_rperl__generate(), received $operator_named = ' . "\n" . RPerl::Parser::rperl_ast__dump($operator_named) . "\n" );
43              
44 1         5 my string $operator_named_class = ref $operator_named;
45 1 50       9 if ( $operator_named_class eq 'Operation_90' ) { # Operation -> OP01_NAMED_SCOLON
    50          
    0          
    0          
46             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASRP15, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: named operator '
47 0         0 . $operator_named->{children}->[0]
48             . ' requires exactly one argument, dying' )
49             . "\n";
50             }
51             elsif ( $operator_named_class eq 'Operator_94' ) { # Operator -> OP01_NAMED SubExpression
52 1         7 $rperl_source_group->{PMC} .= $operator_named->{children}->[0] . q{ };
53 1         29 my string_hashref $rperl_source_subgroup = $operator_named->{children}->[1]->ast_to_rperl__generate( $modes, $self );
54 1         26 RPerl::Generator::source_group_append( $rperl_source_group, $rperl_source_subgroup );
55             }
56             elsif ( $operator_named_class eq 'Operator_95' ) { # Operator -> LPAREN OP01_NAMED ListElement OP21_LIST_COMMA ListElements ')'
57             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASRP13a, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: named operator '
58 0         0 . $operator_named->{children}->[1]
59             . ' does not accept multiple arguments, dying' )
60             . "\n";
61             }
62             elsif ( $operator_named_class eq 'OperatorVoid_134' ) { # OperatorVoid -> OP01_NAMED ListElement OP21_LIST_COMMA ListElements ';'
63             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASRP13b, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: named operator '
64 0         0 . $operator_named->{children}->[0]
65             . ' does not accept multiple arguments, dying' )
66             . "\n";
67             }
68             else {
69 0         0 die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASRP00, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: grammar rule '
70             . ($operator_named_class)
71             . ' found where Operation_90, Operator_94, Operator_95, or OperatorVoid_134 expected, dying' )
72             . "\n";
73             }
74 1         6 return $rperl_source_group;
75             }
76              
77             sub ast_to_cpp__generate__CPPOPS_PERLTYPES {
78 0     0   0 { my string_hashref::method $RETURN_TYPE };
  0         0  
79 0         0 ( my object $self, my string_hashref $modes) = @ARG;
80 0         0 my string_hashref $cpp_source_group = { CPP => q{// <<< RP::O::E::O::N::Abs __DUMMY_SOURCE_CODE CPPOPS_PERLTYPES >>>} . "\n" };
81              
82             #...
83 0         0 return $cpp_source_group;
84             }
85              
86             sub ast_to_cpp__generate__CPPOPS_CPPTYPES {
87 1     1   5 { my string_hashref::method $RETURN_TYPE };
  1         3  
88 1         5 ( my object $self, my object $operator_named, my string_hashref $modes) = @ARG;
89 1         6 my string_hashref $cpp_source_group = { CPP => q{} };
90              
91             # RPerl::diag( 'in Operator::Named::AbsoluteValue->ast_to_cpp__generate__CPPOPS_CPPTYPES(), received $self = ' . "\n" . RPerl::Parser::rperl_ast__dump($self) . "\n" );
92             # RPerl::diag( 'in Operator::Named::AbsoluteValue->ast_to_cpp__generate__CPPOPS_CPPTYPES(), received $operator_named = ' . "\n" . RPerl::Parser::rperl_ast__dump($operator_named) . "\n" );
93              
94 1         5 my string $operator_named_class = ref $operator_named;
95 1 50       10 if ( $operator_named_class eq 'Operation_90' ) { # Operation -> OP01_NAMED_SCOLON
    50          
    0          
    0          
96             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP15, CODE GENERATOR, ABSTRACT SYNTAX TO C++: named operator '
97 0         0 . $operator_named->{children}->[0]
98             . ' requires exactly one argument, dying' )
99             . "\n";
100             }
101             elsif ( $operator_named_class eq 'Operator_94' ) { # Operator -> OP01_NAMED SubExpression
102 1         6 $cpp_source_group->{CPP} .= $operator_named->{children}->[0];
103 1         4 $cpp_source_group->{CPP} .= '(';
104 1         30 my string_hashref $cpp_source_subgroup = $operator_named->{children}->[1]->ast_to_cpp__generate__CPPOPS_CPPTYPES( $modes, $self );
105 1         23 RPerl::Generator::source_group_append( $cpp_source_group, $cpp_source_subgroup );
106 1         10 $cpp_source_group->{CPP} .= ')';
107             }
108             elsif ( $operator_named_class eq 'Operator_95' ) { # Operator -> LPAREN OP01_NAMED ListElement OP21_LIST_COMMA ListElements ')'
109             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP14a, CODE GENERATOR, ABSTRACT SYNTAX TO C++: named operator '
110 0         0 . $operator_named->{children}->[1]
111             . ' does not accept multiple arguments, dying' )
112             . "\n";
113             }
114             elsif ( $operator_named_class eq 'OperatorVoid_134' ) { # OperatorVoid -> OP01_NAMED ListElement OP21_LIST_COMMA ListElements ';'
115             die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP14b, CODE GENERATOR, ABSTRACT SYNTAX TO C++: named operator '
116 0         0 . $operator_named->{children}->[0]
117             . ' does not accept multiple arguments, dying' )
118             . "\n";
119             }
120             else {
121 0         0 die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP00, CODE GENERATOR, ABSTRACT SYNTAX TO C++: grammar rule '
122             . ($operator_named_class)
123             . ' found where Operation_90, Operator_94, Operator_95, or OperatorVoid_134 expected, dying' )
124             . "\n";
125             }
126 1         9 return $cpp_source_group;
127             }
128              
129             1; # end of class