File Coverage

blib/lib/Sub/Disable.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition	8	8	100.0
subroutine	3	3	100.0
pod			n/a
total	36	36	100.0

package Sub::Disable;
use 5.014;
use strict;

our $VERSION = '1.00';

require XSLoader;
XSLoader::load('Sub::Disable', $VERSION);

sub import {
    my $class = shift;
    return unless scalar @_;

    my $args = ref($_[0]) eq 'HASH' ? $_[0] : (scalar grep {ref $_} @_) ? {@_} : {any => \@_};
	my $caller = caller;

    for my $func (@{$args->{method} // []}, @{$args->{any} // []}) {
        disable_method_call($caller, $func);
    }

    for my $func (@{$args->{sub} // []}, @{$args->{any} // []}) {
        disable_named_call($caller, $func);
    }
}

1;
__END__