File Coverage

blib/lib/App/CLI/Extension/Component/ErrorHandler.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package App::CLI::Extension::Component::ErrorHandler;
2              
3             =pod
4              
5             =head1 NAME
6              
7             App::CLI::Extension::Component::ErrorHandler - for App::CLI::Extension error module
8              
9             =head1 VERSION
10              
11             1.421
12              
13             =cut
14              
15 18     18   91 use strict;
  18         31  
  18         573  
16 18     18   16668 use App::CLI::Extension::Exception;
  18         53  
  18         191  
17 18     18   870 use Error;
  18         40  
  18         86  
18              
19             our $VERSION = '1.421';
20              
21             sub throw {
22              
23 4     4 0 133 my($self, $message) = @_;
24 4         28 Error::throw App::CLI::Extension::Exception $message;
25             }
26              
27             1;
28              
29             __END__