File Coverage

blib/lib/Perl/ToPerl6/Exception/Configuration/Option/Global/ExtraParameter.pm
Criterion Covered Total %
statement 14 21 66.6
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 20 30 66.6


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