File Coverage

blib/lib/Enum/Declare/Common/Priority.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Enum::Declare::Common::Priority;
2              
3 1     1   104582 use 5.014;
  1         5  
4 1     1   78 use strict;
  1         3  
  1         46  
5 1     1   6 use warnings;
  1         13  
  1         73  
6              
7 1     1   567 use Enum::Declare;
  1         14099  
  1         349  
8              
9             enum Level :Type :Export {
10             Lowest = 1,
11             Low = 2,
12             Medium = 3,
13             High = 4,
14             Highest = 5
15             };
16              
17             enum Severity :Str :Type :Export {
18             Debug = "debug",
19             Info = "info",
20             Warning = "warning",
21             Error = "error",
22             Critical = "critical"
23             };
24              
25             1;
26              
27             =head1 NAME
28              
29             Enum::Declare::Common::Priority - Priority levels and severity strings
30              
31             =head1 SYNOPSIS
32              
33             use Enum::Declare::Common::Priority;
34              
35             say Medium; # 3
36             say Highest; # 5
37             say Critical; # "critical"
38             say Debug; # "debug"
39              
40             # Compare levels numerically
41             if ($priority >= High) { ... }
42              
43             =head1 ENUMS
44              
45             =head2 Level :Export
46              
47             Lowest=1, Low=2, Medium=3, High=4, Highest=5.
48              
49             =head2 Severity :Str :Export
50              
51             Debug="debug", Info="info", Warning="warning", Error="error",
52             Critical="critical".
53              
54             =head1 AUTHOR
55              
56             LNATION C<< >>
57              
58             =head1 LICENSE AND COPYRIGHT
59              
60             Copyright 2026 LNATION. Artistic License 2.0.
61              
62             =cut