File Coverage

blib/lib/Compress/Raw/Bzip2.pm
Criterion Covered Total %
statement 36 44 81.8
branch 1 2 50.0
condition n/a
subroutine 11 15 73.3
pod 0 2 0.0
total 48 63 76.1


line stmt bran cond sub pod time code
1              
2             package Compress::Raw::Bzip2;
3              
4 3     3   162459 use strict ;
  3         39  
  3         82  
5 3     3   16 use warnings ;
  3         13  
  3         94  
6              
7             require 5.006 ;
8             require Exporter;
9 3     3   15 use Carp ;
  3         5  
  3         200  
10              
11 3     3   41 use bytes ;
  3         5  
  3         14  
12             our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
13              
14             $VERSION = '2.204';
15             $XS_VERSION = $VERSION;
16             $VERSION = eval $VERSION;
17              
18             @ISA = qw(Exporter);
19             # Items to export into callers namespace by default. Note: do not export
20             # names by default without a very good reason. Use EXPORT_OK instead.
21             # Do not simply export all your public functions/methods/constants.
22             @EXPORT = qw(
23             BZ_RUN
24             BZ_FLUSH
25             BZ_FINISH
26              
27             BZ_OK
28             BZ_RUN_OK
29             BZ_FLUSH_OK
30             BZ_FINISH_OK
31             BZ_STREAM_END
32             BZ_SEQUENCE_ERROR
33             BZ_PARAM_ERROR
34             BZ_MEM_ERROR
35             BZ_DATA_ERROR
36             BZ_DATA_ERROR_MAGIC
37             BZ_IO_ERROR
38             BZ_UNEXPECTED_EOF
39             BZ_OUTBUFF_FULL
40             BZ_CONFIG_ERROR
41              
42             );
43              
44             sub AUTOLOAD {
45 9     9   2549 my($constname);
46 9         64 ($constname = $AUTOLOAD) =~ s/.*:://;
47 9         46 my ($error, $val) = constant($constname);
48 9 50       27 Carp::croak $error if $error;
49 3     3   633 no strict 'refs';
  3         8  
  3         357  
50 9     1412   40 *{$AUTOLOAD} = sub { $val };
  9         44  
  1412         85818  
51 9         17 goto &{$AUTOLOAD};
  9         34  
52              
53             }
54              
55 3     3   20 use constant FLAG_APPEND => 1 ;
  3         7  
  3         282  
56 3     3   22 use constant FLAG_CRC => 2 ;
  3         18  
  3         158  
57 3     3   22 use constant FLAG_ADLER => 4 ;
  3         6  
  3         194  
58 3     3   20 use constant FLAG_CONSUME_INPUT => 8 ;
  3         5  
  3         855  
59              
60             eval {
61             require XSLoader;
62             XSLoader::load('Compress::Raw::Bzip2', $XS_VERSION);
63             1;
64             }
65             or do {
66             require DynaLoader;
67             local @ISA = qw(DynaLoader);
68             bootstrap Compress::Raw::Bzip2 $XS_VERSION ;
69             };
70              
71             #sub Compress::Raw::Bzip2::new
72             #{
73             # my $class = shift ;
74             # my ($ptr, $status) = _new(@_);
75             # return wantarray ? (undef, $status) : undef
76             # unless $ptr ;
77             # my $obj = bless [$ptr], $class ;
78             # return wantarray ? ($obj, $status) : $obj;
79             #}
80             #
81             #package Compress::Raw::Bunzip2 ;
82             #
83             #sub Compress::Raw::Bunzip2::new
84             #{
85             # my $class = shift ;
86             # my ($ptr, $status) = _new(@_);
87             # return wantarray ? (undef, $status) : undef
88             # unless $ptr ;
89             # my $obj = bless [$ptr], $class ;
90             # return wantarray ? ($obj, $status) : $obj;
91             #}
92              
93             sub Compress::Raw::Bzip2::STORABLE_freeze
94             {
95 0     0 0   my $type = ref shift;
96 0           croak "Cannot freeze $type object\n";
97             }
98              
99             sub Compress::Raw::Bzip2::STORABLE_thaw
100             {
101 0     0 0   my $type = ref shift;
102 0           croak "Cannot thaw $type object\n";
103             }
104              
105             sub Compress::Raw::Bunzip2::STORABLE_freeze
106             {
107 0     0     my $type = ref shift;
108 0           croak "Cannot freeze $type object\n";
109             }
110              
111             sub Compress::Raw::Bunzip2::STORABLE_thaw
112             {
113 0     0     my $type = ref shift;
114 0           croak "Cannot thaw $type object\n";
115             }
116              
117              
118             package Compress::Raw::Bzip2;
119              
120             1;
121              
122             __END__