File Coverage

blib/lib/Filesys/Restrict/X/Forbidden.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	19	19	100.0

package Filesys::Restrict::X::Forbidden;

use strict;
use warnings;

use parent 'Filesys::Restrict::X::Base';

sub _new {
    my ($class, $opdesc, $path) = @_;

    if (0 != rindex($opdesc, '-', 0)) {
        $opdesc .= '()';
    }

    return $class->SUPER::_new("Forbidden $opdesc of “$path”");
}

1;