File Coverage

blib/lib/Python/Comment.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of App-PythonToPerl
3             #
4             # This software is Copyright (c) 2023 by Auto-Parallel Technologies, Inc.
5             #
6             # This is free software, licensed under:
7             #
8             # The GNU General Public License, Version 3, June 2007
9             #
10             # [[[ HEADER ]]]
11             # ABSTRACT: a comment, containing no parsable source code
12             #use RPerl;
13             package Python::Comment;
14 1     1   8 use strict;
  1         1  
  1         28  
15 1     1   5 use warnings;
  1         19  
  1         40  
16             our $VERSION = 0.002_000;
17              
18             # [[[ OO INHERITANCE ]]]
19 1     1   14 use parent qw(Python::Component);
  1         2  
  1         5  
20 1     1   51 use Python::Component;
  1         2  
  1         16  
21              
22             # [[[ CRITICS ]]]
23             ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls) # USER DEFAULT 1: allow numeric values & print op
24             ## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single-quoted control characters & sigils
25             ## no critic qw(ProhibitConstantPragma ProhibitMagicNumbers) # USER DEFAULT 3: allow constants
26              
27             # [[[ INCLUDES ]]]
28 1     1   9 use Perl::Types;
  1         1  
  1         437  
29              
30             # [[[ OO PROPERTIES ]]]
31             our hashref $properties = {
32             component_type => my string $TYPED_component_type = 'Python::Comment',
33             indentation => my string $TYPED_indentation = undef,
34             is_actually_string_literal => my boolean $TYPED_is_actually_string_literal = undef,
35             python_line_number_begin => my integer $TYPED_python_line_number_begin = undef,
36             python_line_number_end => my integer $TYPED_python_line_number_end = undef,
37             python_source_code => my string $TYPED_python_source_code = undef,
38             perl_source_code => my string $TYPED_perl_source_code = undef,
39             };
40              
41             # [[[ SUBROUTINES & OO METHODS ]]]
42              
43             1;