File Coverage

blib/lib/Mail/Box/Tie.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 4 0.0
condition n/a
subroutine 4 6 66.6
pod n/a
total 16 30 53.3


line stmt bran cond sub pod time code
1             # Copyrights 2001-2023 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.03.
5             # This code is part of distribution Mail-Box. Meta-POD processed with
6             # OODoc into POD and HTML manual-pages. See README.md
7             # Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
8              
9             package Mail::Box::Tie;
10 1     1   898 use vars '$VERSION';
  1         4  
  1         51  
11             $VERSION = '3.010';
12              
13              
14 1     1   6 use strict;
  1         1  
  1         19  
15 1     1   4 use warnings;
  1         5  
  1         34  
16              
17 1     1   6 use Carp;
  1         2  
  1         211  
18              
19              
20             #-------------------------------------------
21              
22             sub TIEHASH(@)
23 0     0     { my $class = (shift) . "::HASH";
24 0           eval "require $class"; # bootstrap
25              
26 0 0         confess $@ if $@;
27 0           $class->TIEHASH(@_);
28             }
29              
30             #-------------------------------------------
31              
32             sub TIEARRAY(@)
33 0     0     { my $class = (shift) . "::ARRAY";
34 0           eval "require $class"; # bootstrap
35              
36 0 0         confess $@ if $@;
37 0           $class->TIEARRAY(@_);
38             }
39              
40             #-------------------------------------------
41              
42             1;