File Coverage

blib/lib/IO/Compress/Lzma.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 24 91.6


line stmt bran cond sub pod time code
1             package IO::Compress::Lzma ;
2              
3 12     12   37971 use strict ;
  12         18  
  12         273  
4 12     12   40 use warnings;
  12         13  
  12         228  
5 12     12   4267 use bytes;
  12         65  
  12         54  
6             require Exporter ;
7              
8 12     12   5944 use IO::Compress::Base 2.072 ;
  12         178904  
  12         599  
9              
10 12     12   87 use IO::Compress::Base::Common 2.072 qw(createSelfTiedObject);
  12         145  
  12         726  
11 12     12   5465 use IO::Compress::Adapter::Lzma 2.072 ;
  0            
  0            
12              
13              
14              
15             our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $LzmaError);
16              
17             $VERSION = '2.072';
18             $LzmaError = '';
19              
20             @ISA = qw(Exporter IO::Compress::Base);
21             @EXPORT_OK = qw( $LzmaError lzma ) ;
22             %EXPORT_TAGS = %IO::Compress::Base::EXPORT_TAGS ;
23             push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
24             Exporter::export_ok_tags('all');
25              
26              
27              
28             sub new
29             {
30             my $class = shift ;
31              
32             my $obj = createSelfTiedObject($class, \$LzmaError);
33             return $obj->_create(undef, @_);
34             }
35              
36             sub lzma
37             {
38             my $obj = createSelfTiedObject(undef, \$LzmaError);
39             $obj->_def(@_);
40             }
41              
42              
43             sub mkHeader
44             {
45             my $self = shift ;
46             return '';
47              
48             }
49              
50             our %PARAMS = ('filter' => [IO::Compress::Base::Common::Parse_any, [] ],
51             );
52             sub getExtraParams
53             {
54             return %PARAMS ;
55             }
56              
57              
58              
59             sub ckParams
60             {
61             my $self = shift ;
62             my $got = shift;
63              
64             # TODO - test that Filter ISA Lzma::Filter::Lzma1
65              
66             return 1 ;
67             }
68              
69              
70             sub mkComp
71             {
72             my $self = shift ;
73             my $got = shift ;
74              
75             my ($obj, $errstr, $errno) =
76             IO::Compress::Adapter::Lzma::mkCompObject($got->getValue('filter'));
77              
78             return $self->saveErrorString(undef, $errstr, $errno)
79             if ! defined $obj;
80            
81             return $obj;
82             }
83              
84              
85             sub mkTrailer
86             {
87             my $self = shift ;
88             return '';
89             }
90              
91             sub mkFinalTrailer
92             {
93             return '';
94             }
95              
96             #sub newHeader
97             #{
98             # my $self = shift ;
99             # return '';
100             #}
101              
102             sub getInverseClass
103             {
104             return ('IO::Uncompress::UnLzma');
105             }
106              
107             sub getFileInfo
108             {
109             my $self = shift ;
110             my $params = shift;
111             my $file = shift ;
112            
113             }
114              
115             1;
116              
117             __END__