File Coverage

blib/lib/Perl/ToPerl6/Exception/Fatal/TransformerDefinition.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::TransformerDefinition;
2              
3 23     23   407 use 5.006001;
  23         64  
4 23     23   117 use strict;
  23         100  
  23         513  
5 23     23   124 use warnings;
  23         35  
  23         612  
6              
7 23     23   97 use Readonly;
  23         35  
  23         1851  
8              
9             our $VERSION = '0.031';
10              
11             #-----------------------------------------------------------------------------
12              
13             use Exception::Class (
14 23         204 'Perl::ToPerl6::Exception::Fatal::TransformerDefinition' => {
15             isa => 'Perl::ToPerl6::Exception::Fatal',
16             description => 'A bug in a transformer was found.',
17             alias => 'throw_transformer_definition',
18             },
19 23     23   132 );
  23         34  
20              
21             #-----------------------------------------------------------------------------
22              
23             Readonly::Array our @EXPORT_OK => qw< throw_transformer_definition >;
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::TransformerDefinition - A bug in a transformer.
41              
42             =head1 DESCRIPTION
43              
44             A bug in a transformer was found, e.g. it didn't implement a method that it should
45             have.
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 :