File Coverage

blib/lib/RPerl/DataStructure/Array.pm
Criterion Covered Total %
statement 22 24 91.6
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 30 32 93.7


line stmt bran cond sub pod time code
1             # [[[ HEADER ]]]
2             package RPerl::DataStructure::Array;
3 9     9   58 use strict;
  9         22  
  9         239  
4 9     9   51 use warnings;
  9         24  
  9         212  
5 9     9   50 use RPerl::AfterSubclass;
  9         24  
  9         1340  
6             our $VERSION = 0.007_000;
7              
8             # [[[ OO INHERITANCE ]]]
9 9     9   66 use parent qw(RPerl::DataStructure);
  9         25  
  9         61  
10 9     9   362 use RPerl::DataStructure;
  9         21  
  9         194  
11              
12 9     9   46 use Carp;
  9         19  
  9         443  
13              
14             # [[[ SUB-TYPES BEFORE INCLUDES ]]]
15 9     9   3919 use RPerl::DataStructure::Array::SubTypes;
  9         27  
  9         842  
16              
17             # [[[ INCLUDES ]]]
18             # for type-checking via SvIOKp(), SvNOKp(), and SvPOKp(); inside INIT to delay until after 'use MyConfig'
19             #INIT { RPerl::diag("in Array.pm, loading C++ helper functions for type-checking...\n"); }
20             INIT {
21 9     9   3899 use RPerl::HelperFunctions_cpp;
  0            
  0            
22             RPerl::HelperFunctions_cpp::cpp_load();
23             }
24              
25             use RPerl::DataType::Void;
26             use RPerl::DataType::Boolean;
27             use RPerl::DataType::UnsignedInteger;
28             use RPerl::DataType::Integer;
29             use RPerl::DataType::Number;
30             use RPerl::DataType::Character;
31             use RPerl::DataType::String;
32             use RPerl::DataType::Scalar;
33             use RPerl::DataType::Unknown;
34             use RPerl::DataStructure::Hash;
35              
36             # [[[ EXPORTS ]]]
37             # DEV NOTE: avoid "Undefined subroutine &main::integer_to_string called"
38             use Exporter 'import';
39             our @EXPORT = ( @RPerl::DataType::Void::EXPORT,
40             @RPerl::DataType::Boolean::EXPORT,
41             @RPerl::DataType::UnsignedInteger::EXPORT,
42             @RPerl::DataType::Integer::EXPORT,
43             @RPerl::DataType::Number::EXPORT,
44             @RPerl::DataType::Character::EXPORT,
45             @RPerl::DataType::String::EXPORT,
46             @RPerl::DataType::Scalar::EXPORT,
47             @RPerl::DataType::Unknown::EXPORT,
48             @RPerl::DataStructure::Hash::EXPORT);
49              
50             # DEV NOTE, CORRELATION #rp018: RPerl::DataStructure::Array & Hash can not 'use RPerl;' so *__MODE_ID() subroutines are hard-coded here
51             package main;
52             use strict;
53             use warnings;
54             sub RPerl__DataStructure__Array__MODE_ID { return 0; }
55              
56             1; # end of class