File Coverage

blib/lib/Mail/Box/MH/Message.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             # This code is part of Perl distribution Mail-Box version 4.01.
2             # The POD got stripped from this file by OODoc version 3.05.
3             # For contributors see file ChangeLog.
4              
5             # This software is copyright (c) 2001-2025 by Mark Overmeer.
6              
7             # This is free software; you can redistribute it and/or modify it under
8             # the same terms as the Perl 5 programming language system itself.
9             # SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later
10              
11              
12             package Mail::Box::MH::Message;{
13             our $VERSION = '4.01';
14             }
15              
16 11     11   1502 use parent 'Mail::Box::Dir::Message';
  11         28  
  11         94  
17              
18 11     11   1055 use strict;
  11         23  
  11         368  
19 11     11   58 use warnings;
  11         25  
  11         791  
20              
21 11     11   176 use Log::Report 'mail-box', import => [ qw/mistake warning/ ];
  11         26  
  11         140  
22              
23             #--------------------
24              
25             # Purpose of above doc is only the warning... no new implementation required.
26              
27             #--------------------
28              
29             1;