File Coverage

blib/lib/Perl/Critic/Policy/OTRS/ProhibitRmtree.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	41	42	97.6

package Perl::Critic::Policy::OTRS::ProhibitRmtree;

# ABSTRACT: Do not use File::Path's rmtree

use strict;
use warnings;

use Readonly;

use Perl::Critic::Utils qw{ :severities :classification :ppi };
use base 'Perl::Critic::Policy';

our $VERSION = '1.03';

Readonly::Scalar my $DESC => q{ ERROR: Don't use File::Path::rmtree(). };
Readonly::Scalar my $EXPL => q{ It is obsolete and not thread safe in some versions of perl. Use File::Path::remove_tree() instead.' };

sub supported_parameters { return ()                     }
sub default_severity     { return $SEVERITY_HIGHEST;     }
sub default_themes       { return qw( otrs otrs_lt_3_3 ) }
sub applies_to           { return 'PPI::Token::Word'     }


sub violates {
    my ( $self, $elem, undef ) = @_;

    return if $elem ne 'rmtree';
    return if !is_function_call($elem);

    return $self->violation( $DESC, $EXPL, $elem );
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Perl::Critic::Policy::OTRS::ProhibitRmtree - Do not use File::Path's rmtree

=head1 VERSION

version 0.09

=head1 METHODS

=head2 supported_parameters

There are no supported parameters.

=head1 AUTHOR

Renee Baecker <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2013 by Renee Baecker.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut