File Coverage

blib/lib/PPIx/Utils/_Common.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	7	12	58.3
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	31	42	73.8

package PPIx::Utils::_Common;
# See the README of this distribution for copyright and license information.

use strict;
use warnings;
use Exporter 'import';
use Scalar::Util 'blessed';

our $VERSION = '0.001';

our @EXPORT_OK = qw(
    is_ppi_expression_or_generic_statement
    is_ppi_simple_statement
);

our %EXPORT_TAGS = (all => [@EXPORT_OK]);

# From Perl::Critic::Utils::PPI
sub is_ppi_expression_or_generic_statement {
    my $element = shift;

    return undef if not $element;
    return undef if not $element->isa('PPI::Statement');
    return 1 if $element->isa('PPI::Statement::Expression');

    my $element_class = blessed($element);

    return undef if not $element_class;
    return $element_class eq 'PPI::Statement';
}

my %SIMPLE_STATEMENT_CLASS = map { $_ => 1 } qw<
    PPI::Statement
    PPI::Statement::Break
    PPI::Statement::Include
    PPI::Statement::Null
    PPI::Statement::Package
    PPI::Statement::Variable
>;

sub is_ppi_simple_statement {
    my $element = shift or return undef;

    my $element_class = blessed( $element ) or return undef;

    return $SIMPLE_STATEMENT_CLASS{ $element_class };
}
# End from Perl::Critic::Utils::PPI

1;

=for Pod::Coverage *EVERYTHING*

=cut