File Coverage

blib/lib/RPerl/Operation/Expression/Operator/Bitwise/Shift.pm
Criterion Covered Total %
statement 27 38 71.0
branch 1 2 50.0
condition n/a
subroutine 6 8 75.0
pod n/a
total 34 48 70.8


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2             package RPerl::Operation::Expression::Operator::Bitwise::Shift;
3 4     4   25 use strict;
  4         12  
  4         109  
4 4     4   17 use warnings;
  4         10  
  4         83  
5 4     4   18 use RPerl::AfterSubclass;
  4         8  
  4         484  
6             our $VERSION = 0.001_000;
7              
8             # [[[ OO INHERITANCE ]]]
9 4     4   27 use parent qw(RPerl::Operation::Expression::Operator::Bitwise);
  4         8  
  4         21  
10 4     4   215 use RPerl::Operation::Expression::Operator::Bitwise;
  4         8  
  4         997  
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 3     3   8 { my string_hashref::method $RETURN_TYPE };
  3         5  
23 3         8 ( my object $self, my string_hashref $modes) = @ARG;
24 3         10 my string_hashref $rperl_source_group = { PMC => q{} };
25              
26             # RPerl::diag( 'in Operator::Bitwise::Shift->ast_to_rperl__generate(), received $self = ' . "\n" . RPerl::Parser::rperl_ast__dump($self) . "\n" );
27              
28 3         9 my string $self_class = ref $self;
29 3 50       10 if ( $self_class eq 'Operator_109' ) { # Operator -> SubExpression OP09_BITWISE_SHIFT SubExpression
30             my string_hashref $rperl_source_subgroup
31 3         76 = $self->{children}->[0]->ast_to_rperl__generate($modes);
32 3         65 RPerl::Generator::source_group_append( $rperl_source_group,
33             $rperl_source_subgroup );
34 3         10 $rperl_source_group->{PMC} .= q{ } . $self->{children}->[1] . q{ };
35             $rperl_source_subgroup
36 3         62 = $self->{children}->[2]->ast_to_rperl__generate($modes);
37 3         94 RPerl::Generator::source_group_append( $rperl_source_group,
38             $rperl_source_subgroup );
39             }
40             else {
41 0         0 die RPerl::Parser::rperl_rule__replace(
42             'ERROR ECOGEASRP00, CODE GENERATOR, ABSTRACT SYNTAX TO RPERL: Grammar rule '
43             . $self_class
44             . ' found where Operator_109 expected, dying' )
45             . "\n";
46             }
47 3         15 return $rperl_source_group;
48             }
49              
50             sub ast_to_cpp__generate__CPPOPS_PERLTYPES {
51 0     0     { my string_hashref::method $RETURN_TYPE };
  0            
52 0           ( my object $self, my string_hashref $modes) = @ARG;
53 0           my string_hashref $cpp_source_group
54             = { CPP =>
55             q{// <<< RP::O::E::O::B::S __DUMMY_SOURCE_CODE CPPOPS_PERLTYPES >>>}
56             . "\n" };
57              
58             #...
59 0           return $cpp_source_group;
60             }
61              
62             sub ast_to_cpp__generate__CPPOPS_CPPTYPES {
63 0     0     { my string_hashref::method $RETURN_TYPE };
  0            
64 0           ( my object $self, my string_hashref $modes) = @ARG;
65 0           my string_hashref $cpp_source_group
66             = { CPP =>
67             q{// <<< RP::O::E::O::B::S __DUMMY_SOURCE_CODE CPPOPS_CPPTYPES >>>}
68             . "\n" };
69              
70             #...
71 0           return $cpp_source_group;
72             }
73              
74             1; # end of class