File Coverage

blib/lib/PDL/NiceSlice/FilterSimple.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 25 88.0


line stmt bran cond sub pod time code
1             # This is the new Filter::Simple engine for PDL::NiceSlice
2             #
3 6     6   570 use Filter::Simple;
  6         13  
  6         43  
4 6     6   378 use strict;
  6         25  
  6         178  
5 6     6   31 use warnings;
  6         9  
  6         309  
6              
7             {
8 6     6   30 no warnings 'redefine';
  6         12  
  6         1801  
9             sub PDL::NiceSlice::FilterSimple::code_no_comments {
10 39 50   39 0 162 print STDERR "***** Input: \n$_\n" if $PDL::NiceSlice::debug_filter;
11 39         171 $_ = perldlpp('PDL::NiceSlice', $_);
12 39 50       172 print STDERR "***** Output: $_\n" if $PDL::NiceSlice::debug_filter;
13             }
14             }
15              
16             FILTER_ONLY
17             code_no_comments => \&PDL::NiceSlice::FilterSimple::code_no_comments,
18             all => sub { print STDERR "*** Final: $_\n" if $PDL::NiceSlice::debug_filter };
19              
20             1;