our
$VERSION
= 0.001_100;
if
(
$EVAL_ERROR
and (
$EVAL_ERROR
=~ /attempt to reload/i)){
delete
$INC
{
'RPerl::Parser'
};
}
elsif
(
$EVAL_ERROR
ne
q{}
) {
die
$EVAL_ERROR
; }
our
hashref
$properties
= {};
sub
ast_to_rperl__generate {
{
my
string_hashref::method
$RETURN_TYPE
};
(
my
object
$self
,
my
string_hashref
$modes
) =
@ARG
;
RPerl::diag(
'in NonGenerator->ast_to_rperl__generate(), received $self = '
.
"\n"
. RPerl::Parser::rperl_ast__dump(
$self
) .
"\n"
);
croak
'ERROR ECOGENG00, GENERATOR: Attempt to generate output source code from non-generating class '
. ::class(
$self
) .
', croaking'
;
return
;
}
sub
ast_to_cpp__generate__CPPOPS_PERLTYPES {
{
my
string_hashref::method
$RETURN_TYPE
};
(
my
object
$self
,
my
string_hashref
$modes
) =
@ARG
;
croak
'ERROR ECOGENG00, GENERATOR: Attempt to generate output source code from non-generating class '
. ::class(
$self
) .
', croaking'
;
return
;
}
sub
ast_to_cpp__generate__CPPOPS_CPPTYPES {
{
my
string_hashref::method
$RETURN_TYPE
};
(
my
object
$self
,
my
string_hashref
$modes
) =
@ARG
;
croak
'ERROR ECOGENG00, GENERATOR: Attempt to generate output source code from non-generating class '
. ::class(
$self
) .
', croaking'
;
return
;
}
1;