File Coverage

blib/lib/Perl/ToPerl6/Exception/Configuration/NonExistentTransformer.pm
Criterion Covered Total %
statement 14 17 82.3
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Perl::ToPerl6::Exception::Configuration::NonExistentTransformer;
2              
3 1     1   15 use 5.006001;
  1         3  
4 1     1   5 use strict;
  1         1  
  1         18  
5 1     1   5 use warnings;
  1         1  
  1         21  
6              
7 1     1   4 use Readonly;
  1         1  
  1         91  
8              
9             #-----------------------------------------------------------------------------
10              
11             use Exception::Class (
12 1         7 'Perl::ToPerl6::Exception::Configuration::NonExistentTransformer' => {
13             isa => 'Perl::ToPerl6::Exception::Configuration',
14             description => 'The configuration referred to a non-existant transformer.',
15             fields => [ qw{ transformer } ],
16             },
17 1     1   5 );
  1         2  
18              
19             #-----------------------------------------------------------------------------
20              
21             Readonly::Array our @EXPORT_OK => qw< throw_extra_parameter >;
22              
23             #-----------------------------------------------------------------------------
24              
25             sub full_message {
26 0     0 1   my ( $self ) = @_;
27              
28 0           my $transformer = $self->transformer();
29              
30 0           return qq<There is no $transformer transformer installed.>;
31             }
32              
33              
34             1;
35              
36             __END__
37              
38             #-----------------------------------------------------------------------------
39              
40             =pod
41              
42             =for stopwords
43              
44             =head1 NAME
45              
46             Perl::ToPerl6::Exception::Configuration::NonExistentTransformer - The configuration referred to a non-existent transformer.
47              
48             =head1 DESCRIPTION
49              
50             A representation of the configuration attempting to specify a
51             L<Perl::ToPerl6::Transformer|Perl::ToPerl6::Transformer> that is not known, whether from a
52             F<.perlmogrifyrc>, another profile file, or command line.
53              
54              
55             =head1 INTERFACE SUPPORT
56              
57             This is considered to be a public class. Any changes to its interface
58             will go through a deprecation cycle.
59              
60              
61             =head1 CLASS METHODS
62              
63             =over
64              
65             =item C<< throw( transformer => $transformer ) >>
66              
67             See L<Exception::Class/"throw">.
68              
69              
70             =item C<< new( transformer => $transformer ) >>
71              
72             See L<Exception::Class/"new">.
73              
74              
75             =back
76              
77              
78             =head1 METHODS
79              
80             =over
81              
82             =item C<full_message()>
83              
84             Provide a standard message. See L<Exception::Class/"full_message">.
85              
86              
87             =back
88              
89              
90             =head1 AUTHOR
91              
92             Elliot Shank <perl@galumph.com>
93              
94             =head1 COPYRIGHT
95              
96             Copyright (c) 2007-2011 Elliot Shank.
97              
98             This program is free software; you can redistribute it and/or modify
99             it under the same terms as Perl itself. The full text of this license
100             can be found in the LICENSE file included with this module.
101              
102             =cut
103              
104             # Local Variables:
105             # mode: cperl
106             # cperl-indent-level: 4
107             # fill-column: 78
108             # indent-tabs-mode: nil
109             # c-indentation-style: bsd
110             # End:
111             # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :