File Coverage

blib/lib/Compress/SelfExtracting/Filter.pm
Criterion Covered Total %
statement 7 7 100.0
branch 1 2 50.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 10 11 90.9


line stmt bran cond sub pod time code
1             package Compress::SelfExtracting::Filter;
2 23     23   15035 use Compress::SelfExtracting 'decompress';
  23         138  
  23         3538  
3              
4             my %O;
5              
6             sub import {
7             my $me = shift;
8             %O = @_;
9             }
10              
11             use Filter::Simple sub {
12             # XXX: I don't know why this gets called with empty data, but that
13             # really pisses decompress() off.
14 22 50       5026 $_ = decompress($_, %O) if length;
15 23     23   92413 };
  23         3302587  
  23         259  
16              
17             1;