File Coverage

blib/lib/App/TeleGramma/Constants.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             package App::TeleGramma::Constants;
2             $App::TeleGramma::Constants::VERSION = '0.14';
3             # ABSTRACT: Constants for TeleGramma
4              
5 4     4   24 use strict;
  4         8  
  4         108  
6 4     4   17 use warnings;
  4         8  
  4         89  
7              
8 4     4   18 use Exporter qw/import/;
  4         4  
  4         164  
9              
10             use constant {
11 4         504 PLUGIN_NO_RESPONSE => 'NO_RESPONSE',
12             PLUGIN_NO_RESPONSE_LAST => 'NO_RESPONSE_LAST',
13             PLUGIN_RESPONDED => 'RESPONDED',
14             PLUGIN_RESPONDED_LAST => 'RESPONDED_LAST',
15             PLUGIN_DECLINED => 'PLUGIN_DECLINED',
16 4     4   20 };
  4         9  
17              
18             our @EXPORT_OK = qw/
19             PLUGIN_NO_RESPONSE
20             PLUGIN_NO_RESPONSE_LAST
21             PLUGIN_RESPONDED
22             PLUGIN_RESPONDED_LAST
23             PLUGIN_DECLINED
24             /;
25             our %EXPORT_TAGS = (const => \@EXPORT_OK);
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             App::TeleGramma::Constants - Constants for TeleGramma
36              
37             =head1 VERSION
38              
39             version 0.14
40              
41             =head1 AUTHOR
42              
43             Justin Hawkins <justin@hawkins.id.au>
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             This software is copyright (c) 2019 by Justin Hawkins <justin@eatmorecode.com>.
48              
49             This is free software; you can redistribute it and/or modify it under
50             the same terms as the Perl 5 programming language system itself.
51              
52             =cut