Adde binary packages

[pkg-perl] / deb-src / libperl-critic-perl / libperl-critic-perl-1.088 / lib / Perl / Critic / Exception / Configuration / Option / Global / ParameterValue.pm

diff --git a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Exception/Configuration/Option/Global/ParameterValue.pm b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Exception/Configuration/Option/Global/ParameterValue.pm
deleted file mode 100644 (file)
index 23280ef..0000000
--- a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Exception/Configuration/Option/Global/ParameterValue.pm
+++ /dev/null
@@ -1,132 +0,0 @@
-##############################################################################
-#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Exception/Configuration/Option/Global/ParameterValue.pm $
-#     $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
-#   $Author: clonezone $
-# $Revision: 2489 $
-##############################################################################
-
-package Perl::Critic::Exception::Configuration::Option::Global::ParameterValue;
-
-use 5.006001;
-use strict;
-use warnings;
-
-use Readonly;
-
-use Perl::Critic::Utils qw{ :characters };
-
-our $VERSION = '1.088';
-
-#-----------------------------------------------------------------------------
-
-use Exception::Class (
-    'Perl::Critic::Exception::Configuration::Option::Global::ParameterValue' => {
-        isa         => 'Perl::Critic::Exception::Configuration::Option::Global',
-        description => 'A problem with the value of a global parameter.',
-        alias       => 'throw_global_value',
-    },
-);
-
-#-----------------------------------------------------------------------------
-
-Readonly::Array our @EXPORT_OK => qw< throw_global_value >;
-
-#-----------------------------------------------------------------------------
-
-sub full_message {
-    my ( $self ) = @_;
-
-    my $source = $self->source();
-    if ($source) {
-        $source = qq{ found in "$source"};
-    }
-    else {
-        $source = $EMPTY;
-    }
-
-    my $option_name = $self->option_name();
-    my $option_value =
-        defined $self->option_value()
-            ? $DQUOTE . $self->option_value() . $DQUOTE
-            : '<undef>';
-    my $message_suffix = $self->message_suffix() || $EMPTY;
-
-    return
-            qq{The value for the global "$option_name" option }
-        .   qq{($option_value)$source $message_suffix};
-}
-
-
-1;
-
-__END__
-
-#-----------------------------------------------------------------------------
-
-=pod
-
-=for stopwords
-
-=head1 NAME
-
-Perl::Critic::Exception::Configuration::Option::Global::ParameterValue - A problem with the value of a global parameter.
-
-=head1 DESCRIPTION
-
-A representation of a problem found with the value of a global
-parameter, whether from a F<.perlcriticrc>, another profile file, or
-command line.
-
-
-=head1 CLASS METHODS
-
-=over
-
-=item C<< throw( option_name => $option_name, option_value => $option_value, source => $source, message_suffix => $message_suffix ) >>
-
-See L<Exception::Class/"throw">.
-
-
-=item C<< new( option_name => $option_name, option_value => $option_value, source => $source, message_suffix => $message_suffix ) >>
-
-See L<Exception::Class/"new">.
-
-
-=back
-
-
-=head1 METHODS
-
-=over
-
-=item C<full_message()>
-
-Provide a standard message for global configuration problems.  See
-L<Exception::Class/"full_message">.
-
-
-=back
-
-
-=head1 AUTHOR
-
-Elliot Shank <perl@galumph.com>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2007-2008 Elliot Shank.  All rights reserved.
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.  The full text of this license
-can be found in the LICENSE file included with this module.
-
-=cut
-
-# Local Variables:
-#   mode: cperl
-#   cperl-indent-level: 4
-#   fill-column: 78
-#   indent-tabs-mode: nil
-#   c-indentation-style: bsd
-# End:
-# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :