File Coverage

blib/lib/Perl/ToPerl6/Exception/Fatal/Internal.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Perl::ToPerl6::Exception::Fatal::Internal;
2              
3 1     1   13 use 5.006001;
  1         3  
4 1     1   4 use strict;
  1         2  
  1         16  
5 1     1   5 use warnings;
  1         1  
  1         19  
6              
7 1     1   4 use Readonly;
  1         1  
  1         56  
8              
9             #-----------------------------------------------------------------------------
10              
11             use Exception::Class (
12 1         7 'Perl::ToPerl6::Exception::Fatal::Internal' => {
13             isa => 'Perl::ToPerl6::Exception::Fatal',
14             description => 'A problem with the Perl::ToPerl6 code was found, a.k.a. a bug.',
15             alias => 'throw_internal',
16             },
17 1     1   6 );
  1         1  
18              
19             #-----------------------------------------------------------------------------
20              
21             Readonly::Array our @EXPORT_OK => qw< throw_internal >;
22              
23             #-----------------------------------------------------------------------------
24              
25              
26             1;
27              
28             __END__
29              
30             #-----------------------------------------------------------------------------
31              
32             =pod
33              
34             =for stopwords
35              
36             =head1 NAME
37              
38             Perl::ToPerl6::Exception::Fatal::Internal - A problem with the L<Perl::ToPerl6|Perl::ToPerl6> implementation, i.e. a bug.
39              
40             =head1 DESCRIPTION
41              
42             A representation of a bug found in the code of
43             L<Perl::ToPerl6|Perl::ToPerl6>.
44              
45              
46             =head1 INTERFACE SUPPORT
47              
48             This is considered to be a public class. Any changes to its interface
49             will go through a deprecation cycle.
50              
51              
52             =head1 METHODS
53              
54             Only inherited ones.
55              
56              
57             =head1 AUTHOR
58              
59             Elliot Shank <perl@galumph.com>
60              
61             =head1 COPYRIGHT
62              
63             Copyright (c) 2007-2011 Elliot Shank.
64              
65             This program is free software; you can redistribute it and/or modify
66             it under the same terms as Perl itself. The full text of this license
67             can be found in the LICENSE file included with this module.
68              
69             =cut
70              
71             # Local Variables:
72             # mode: cperl
73             # cperl-indent-level: 4
74             # fill-column: 78
75             # indent-tabs-mode: nil
76             # c-indentation-style: bsd
77             # End:
78             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :