Perl::Critic::AnnotatiUser)Contributed Perl DocumenPerl::Critic::Annotation(3)NAMEPerl::Critic::Annotation - A "## no critic" annotation in a document.
SYNOPSIS
use Perl::Critic::Annotation;
$annotation = Perl::Critic::Annotation->new( -element => $no_critic_ppi_element );
$bool = $annotation->disables_line( $number );
$bool = $annotation->disables_policy( $policy_object );
$bool = $annotation->disables_all_policies();
($start, $end) = $annotation->effective_range();
@disabled_policy_names = $annotation->disabled_policies();
DESCRIPTION
"Perl::Critic::Annotation" represents a single "## no critic"
annotation in a <PPI:Document>. The Annotation takes care of parsing
the annotation and keeps track of which lines and Policies it affects.
It is intended to encapsulate the details of the no-critic annotations,
and to provide a way for Policy objects to interact with the
annotations (via a Perl::Critic::Document).
INTERFACE SUPPORT
This is considered to be a non-public class. Its interface is subject
to change without notice.
CLASS METHODS
create_annotations( -doc => $doc )
Given a Perl::Critic::Document, finds all the "## no critic"
annotations and constructs a new "Perl::Critic::Annotation" for
each one and returns them. The order of the returned objects is
not defined. It is generally expected that clients will use this
interface rather than calling the "Perl::Critic::Annotation"
constructor directly.
CONSTRUCTOR
"new( -element => $ppi_annotation_element )"
Returns a reference to a new Annotation object. The -element
argument is required and should be a "PPI::Token::Comment" that
conforms to the "## no critic" syntax.
METHODS
"disables_line( $line )"
Returns true if this Annotation disables $line for any (or all)
Policies.
"disables_policy( $policy_object )"
"disables_policy( $policy_name )"
Returns true if this Annotation disables $polciy_object or
$policy_name at any (or all) lines.
"disables_all_policies()"
Returns true if this Annotation disables all Policies at any (or
all) lines. If this method returns true, "disabled_policies" will
return an empty list.
"effective_range()"
Returns a two-element list, representing the first and last line
numbers where this Annotation has effect.
"disabled_policies()"
Returns a list of the names of the Policies that are affected by
this Annotation. If this list is empty, then it means that all
Policies are affected by this Annotation, and
"disables_all_policies()" should return true.
"element()"
Returns the PPI::Element where this annotation started. This is
typically an instance of PPI::Token::Comment.
AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com>
COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. 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.
perl v5.14.1 2011-07-22 Perl::Critic::Annotation(3)
