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