File Coverage

lib/Perlmazing.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Perlmazing;
2 34     34   4009509 use Perlmazing::Engine;
  34         144  
  34         285  
3 34     34   225647 use Perlmazing::Engine::Exporter;
  34         101  
  34         266  
4 34     34   219 use Perlmazing::Feature;
  34         60  
  34         314  
5 34     34   19347 use Win32::Symlinks;
  34         54463  
  34         2211  
6 34         15309 use List::Util qw(
7             reduce any all none notall first reductions
8             max maxstr min minstr product sum sum0
9             pairs unpairs pairkeys pairvalues pairfirst pairgrep pairmap
10             uniq uniqint uniqnum uniqstr head tail zip mesh
11 34     34   253 );
  34         55  
12             our $VERSION = '2.0018';
13             our @found_symbols = Perlmazing::Engine->found_symbols;
14             our %EXPORT_TAGS = (
15             all => \@found_symbols,
16             default => [qw(pl dumped define time localtime gmtime mkdir rmdir sleep stat )],
17             context => [qw(list_context no_void scalar_context void_context )],
18             crypt => [qw(aes_decrypt aes_encrypt md5 md5_file )],
19             error => [qw(carp cluck confess croak longmess shortmess )],
20             file => [qw(abs2rel basename catdir catfile catpath copy cwd devnull dir dirname empty_dir fout move rel2abs slurp splitdir splitpath unix_path windows_path )],
21             object => [qw(find_parent_classes flatten is_array is_blessed is_code is_filehandle is_format is_glob is_hash is_io is_lvalue is_ref is_regexp is_scalar is_vstring isa_array isa_code isa_filehandle isa_format isa_glob isa_hash isa_io isa_lvalue isa_ref isa_regexp isa_scalar isa_vstring unbless )],
22             string => [qw(commify escape_html escape_quote escape_quotes escape_uri eval_string is_email_address is_empty is_integer is_number is_utf8 not_empty numeric replace_accented_characters to_number to_string to_utf8 trim truncate_text unescape_html unescape_uri )],
23             time => [qw(get_time_from gmtime_hashref is_leap_year is_valid_date time_hashref timegm timelocal localtime_ts gmtime_ts)],
24             variable => [qw(columnize in_array merge remove_duplicates shuffle sort_by_key sort_by_value taint tainted untaint)],
25             number => [qw(avg ceil decimals is_integer min max)],
26             list => [qw(all any avg columnize first head max maxstr mesh min minstr none notall pairfirst pairgrep pairkeys pairmap pairs pairvalues product reduce reductions shuffle sum sum0 tail uniq uniqint uniqnum uniqstr unpairs zip)],
27             );
28              
29             # Renaming key for consistency. Leaving this as a backwards compatibility thing.
30             $EXPORT_TAGS{variables} = $EXPORT_TAGS{variable};
31              
32             our @EXPORT = @{$EXPORT_TAGS{default}};
33              
34             Perlmazing::Engine->precompile;
35              
36             Perlmazing::Engine->preload(
37             qw(
38            
39             )
40             );
41              
42 34     34   242 no warnings 'redefine';
  34         56  
  34         6831  
43             sub import {
44 1512     1512   6137 my $self = shift;
45 1512         5591 my @call = caller;
46 1512         9478 Perlmazing::Feature->import;
47 1512         81471 warnings->import(FATAL => qw(closed unopened numeric recursion syntax uninitialized));
48 1512         8004 $self->SUPER::import(@_);
49             }
50              
51             1;
52              
53             __END__