File Coverage

blib/lib/Perl/ToPerl6/Exception/Configuration/Option/Transformer/ExtraParameter.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 29 31 93.5


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