File Coverage

blib/lib/Perinci/Sub/Property/hide_args.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	5	100.0
pod			n/a
total	21	23	91.3

package Perinci::Sub::Property::hide_args;

use 5.010001;
use strict;
use warnings;

use Perinci::Sub::PropertyUtil qw(declare_property);

our $VERSION = '0.01'; # VERSION

declare_property(
    name => 'hide_args',
    type => 'function',
    schema => ['array' => of => 'str*'],
    wrapper => {
        meta => {
            v       => 2,
            prio    => 9, # before args
            convert => 1,
        },
        handler => sub {
            my ($self, %args) = @_;

            my $v    = $args{new} // $args{value};

            delete $self->{_meta}{args}{$_} for @$v;
        },
    },
);

1;
# ABSTRACT: Hide arguments

__END__