File Coverage

blib/lib/IO/Uncompress/AnyInflate.pm
Criterion Covered Total %
statement 64 66 96.9
branch 6 8 75.0
condition n/a
subroutine 15 16 93.7
pod 2 6 33.3
total 87 96 90.6


line stmt bran cond sub pod time code
1             package IO::Uncompress::AnyInflate ;
2              
3             # for RFC1950, RFC1951 or RFC1952
4              
5 6     6   11380 use strict;
  6         34  
  6         195  
6 6     6   30 use warnings;
  6         13  
  6         124  
7 6     6   2260 use bytes;
  6         57  
  6         27  
8              
9 6     6   1968 use IO::Compress::Base::Common 2.206 qw(:Parse);
  6         113  
  6         799  
10              
11 6     6   1742 use IO::Uncompress::Adapter::Inflate 2.206 ();
  6         101  
  6         220  
12              
13              
14 6     6   2104 use IO::Uncompress::Base 2.206 ;
  6         101  
  6         272  
15 6     6   2012 use IO::Uncompress::Gunzip 2.206 ;
  6         115  
  6         269  
16 6     6   2364 use IO::Uncompress::Inflate 2.206 ;
  6         117  
  6         262  
17 6     6   36 use IO::Uncompress::RawInflate 2.206 ;
  6         64  
  6         198  
18 6     6   2885 use IO::Uncompress::Unzip 2.206 ;
  6         117  
  6         3329  
19              
20             require Exporter ;
21              
22             our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
23              
24             $VERSION = '2.206';
25             $AnyInflateError = '';
26              
27             @ISA = qw(IO::Uncompress::Base Exporter);
28             @EXPORT_OK = qw( $AnyInflateError anyinflate ) ;
29             %EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS if keys %IO::Uncompress::Base::DEFLATE_CONSTANTS;
30             push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
31             Exporter::export_ok_tags('all');
32              
33             # TODO - allow the user to pick a set of the three formats to allow
34             # or just assume want to auto-detect any of the three formats.
35              
36             sub new
37             {
38 36     36 1 4976 my $class = shift ;
39 36         113 my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyInflateError);
40 36         142 $obj->_create(undef, 0, @_);
41             }
42              
43             sub anyinflate
44             {
45 0     0 1 0 my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyInflateError);
46 0         0 return $obj->_inf(@_) ;
47             }
48              
49             sub getExtraParams
50             {
51 36     36 0 239 return ( 'rawinflate' => [Parse_boolean, 0] ) ;
52             }
53              
54             sub ckParams
55             {
56 36     36 0 55 my $self = shift ;
57 36         50 my $got = shift ;
58              
59             # any always needs both crc32 and adler32
60 36         118 $got->setValue('crc32' => 1);
61 36         85 $got->setValue('adler32' => 1);
62              
63 36         85 return 1;
64             }
65              
66             sub mkUncomp
67             {
68 36     36 0 63 my $self = shift ;
69 36         49 my $got = shift ;
70              
71 36         117 my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject();
72              
73 36 50       91 return $self->saveErrorString(undef, $errstr, $errno)
74             if ! defined $obj;
75              
76 36         77 *$self->{Uncomp} = $obj;
77              
78 36         86 my @possible = qw( Inflate Gunzip Unzip );
79 36         87 unshift @possible, 'RawInflate'
80             if 1 || $got->getValue('rawinflate');
81              
82 36         89 my $magic = $self->ckMagic( @possible );
83              
84 36 100       81 if ($magic) {
85 32 50       74 *$self->{Info} = $self->readHeader($magic)
86             or return undef ;
87              
88 32         150 return 1;
89             }
90              
91 4         11 return 0 ;
92             }
93              
94              
95              
96             sub ckMagic
97             {
98 36     36 0 67 my $self = shift;
99 36         74 my @names = @_ ;
100              
101 36         70 my $keep = ref $self ;
102 36         71 for my $class ( map { "IO::Uncompress::$_" } @names)
  144         328  
103             {
104 96         290 bless $self => $class;
105 96         279 my $magic = $self->ckMagic();
106              
107 96 100       196 if ($magic)
108             {
109             #bless $self => $class;
110 32         92 return $magic ;
111             }
112              
113 64         183 $self->pushBack(*$self->{HeaderPending}) ;
114 64         132 *$self->{HeaderPending} = '' ;
115             }
116              
117 4         15 bless $self => $keep;
118 4         10 return undef;
119             }
120              
121             1 ;
122              
123             __END__