Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / lib / Perl / Critic / Policy / ValuesAndExpressions / ProhibitMismatchedOperators.pm

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMismatchedOperators.pm b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMismatchedOperators.pm
new file mode 100644 (file)
index 0000000..5400981
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMismatchedOperators.pm
@@ -0,0 +1,154 @@
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitMismatchedOperators.pm $
+#     $Date: 2008-07-03 10:19:10 -0500 (Thu, 03 Jul 2008) $
+#   $Author: clonezone $
+# $Revision: 2489 $
+##############################################################################
+
+package Perl::Critic::Policy::ValuesAndExpressions::ProhibitMismatchedOperators;
+use 5.006001;
+use strict;
+use warnings;
+use Readonly;
+
+use Perl::Critic::Utils qw{ :severities };
+use base 'Perl::Critic::Policy';
+
+our $VERSION = '1.088';
+
+#-----------------------------------------------------------------------------
+
+Readonly::Scalar my $DESC => q{Mismatched operator};
+Readonly::Scalar my $EXPL => q{Numeric/string operators and operands should match};
+
+# operator types
+
+Readonly::Hash my %OP_TYPES => (
+    # numeric
+    (map { $_ => 0 } qw( == != > >= < <= + - * / += -= *= /= )),
+    # string
+    (map { $_ => 1 } qw( eq ne lt gt le ge . .= )),
+);
+
+# token compatibility [ numeric, string ]
+
+Readonly::Hash my %TOKEN_COMPAT => (
+    'PPI::Token::Number' => [ 1, 0 ],
+    'PPI::Token::Symbol' => [ 1, 1 ],
+    'PPI::Token::Quote'  => [ 0, 1 ],
+);
+
+#-----------------------------------------------------------------------------
+
+sub supported_parameters { return ()                     }
+sub default_severity     { return $SEVERITY_MEDIUM       }
+sub default_themes       { return qw( core bugs )        }
+sub applies_to           { return 'PPI::Token::Operator' }
+
+#-----------------------------------------------------------------------------
+
+sub violates {
+    my ( $self, $elem ) = @_;
+
+    my $elem_text = $elem->content;
+
+    return if !exists $OP_TYPES{$elem_text};
+
+    my $prev_elem = $elem->sprevious_sibling();
+    return if not $prev_elem;
+
+    my $next_elem = $elem->snext_sibling();
+    return if not $next_elem;
+
+    if ( $next_elem->isa('PPI::Token::Operator') ) {
+        $elem_text .= $next_elem;
+        $next_elem = $next_elem->snext_sibling();
+    }
+
+    return if !exists $OP_TYPES{$elem_text};
+    my $op_type = $OP_TYPES{$elem_text};
+
+    my $prev_compat = $self->_get_token_compat( $prev_elem );
+    my $next_compat = $self->_get_token_compat( $next_elem );
+
+    return if ( !defined $prev_compat || $prev_compat->[$op_type] )
+        && ( !defined $next_compat || $next_compat->[$op_type] );
+
+    return $self->violation( $DESC, $EXPL, $elem );
+}
+
+#-----------------------------------------------------------------------------
+
+# get token value compatibility
+
+sub _get_token_compat {
+    my ( $self, $elem ) = @_;
+    for my $class ( keys %TOKEN_COMPAT ) {
+        return $TOKEN_COMPAT{$class} if $elem->isa($class);
+    }
+    return;
+}
+
+1;
+
+__END__
+
+#-----------------------------------------------------------------------------
+
+=pod
+
+=head1 NAME
+
+Perl::Critic::Policy::ValuesAndExpressions::ProhibitMismatchedOperators - Don't mix numeric operators with string operands, or vice-versa.
+
+=head1 AFFILIATION
+
+This Policy is part of the core L<Perl::Critic> distribution.
+
+
+=head1 DESCRIPTION
+
+Using the wrong operator type for a value can obscure coding intent
+and possibly lead to subtle errors.  An example of this is mixing a
+string equality operator with a numeric value, or vice-versa.
+
+  if ($foo == 'bar') {}     #not ok
+  if ($foo eq 'bar') {}     #ok
+  if ($foo eq 123) {}       #not ok
+  if ($foo == 123) {}       #ok
+
+
+=head1 CONFIGURATION
+
+This Policy is not configurable except for the standard options.
+
+
+=head1 NOTES
+
+If L<warnings> are enabled, the Perl interpreter usually warns you
+about using mismatched operators at run-time.  This Policy does
+essentially the same thing, but at author-time.  That way, you can
+find our about them sooner.
+
+=head1 AUTHOR
+
+Peter Guzis <pguzis@cpan.org>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2006-2008 Peter Guzis.  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 :