File Coverage

blib/lib/Perl/ToPerl6/Exception/Configuration/Option/Global/ExtraParameter.pm
Criterion Covered Total %
statement 20 21 95.2
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 28 30 93.3


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