File Coverage

blib/lib/Python/Whitespace.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 whitespace-only line, containing no visible characters
12             #use RPerl;
13             package Python::Whitespace;
14 1     1   6 use strict;
  1         5  
  1         29  
15 1     1   5 use warnings;
  1         2  
  1         51  
16             our $VERSION = 0.001_000;
17              
18             # [[[ OO INHERITANCE ]]]
19 1     1   26 use parent qw(Python::Component);
  1         3  
  1         16  
20 1     1   66 use Python::Component;
  1         2  
  1         29  
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   4 use Perl::Types;
  1         2  
  1         440  
29              
30             # [[[ OO PROPERTIES ]]]
31             our hashref $properties = {
32             component_type => my string $TYPED_component_type = 'Python::Whitespace',
33             python_line_number_begin => my integer $TYPED_python_line_number_begin = undef,
34             python_line_number_end => my integer $TYPED_python_line_number_end = undef,
35             python_source_code => my string $TYPED_python_source_code = undef,
36             perl_source_code => my string $TYPED_perl_source_code = undef,
37             };
38              
39             # [[[ SUBROUTINES & OO METHODS ]]]
40              
41             1;