package Perl::Critic::Policy::Local::RequireArgUnpackOrShift;

use strict;
use warnings;

use Readonly;

use Perl::Critic::Utils qw<
    :booleans :characters :severities words_from_string
>;
use Perl::Critic::Policy::Subroutines::RequireArgUnpacking;

use base 'Perl::Critic::Policy';

Readonly::Scalar my $AT_ARG => q{@_}; ## no critic (InterpolationOfMetachars)
Readonly::Scalar my $DESC => qq{Always unpack $AT_ARG first};
Readonly::Scalar my $EXPL => [178];

my $rau = Perl::Critic::Policy::Subroutines::RequireArgUnpacking->new;

my @delegations = (
    qw(
      supported_parameters
      default_severity
      default_themes
      applies_to
      _is_size_check
      _is_postfix_foreach
      _is_cast_of_array
      _is_cast_of_scalar
      _get_arg_symbols
      _magic_finder
      )
);

my @has_self = (
    qw(
      _is_unpack
      _is_delegation
      )
);

{

    no strict 'refs';

    for (@delegations) {
        my $attribute = $_;
        *{ __PACKAGE__ . '::' . $attribute } = sub {
            my $fq_sname = join('::',ref($rau),$attribute);
            return &{$fq_sname}(@_);
        };
    }

    for (@has_self) {
        my $attribute = $_;
        *{ __PACKAGE__ . '::' . $attribute } = sub {
            my $self = shift;
            return $rau->$attribute(@_);
        };
    }

}

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

    warn "In OrShift violates\n";
    # do some nifty new stuff here, delegate all methods and subroutines
    # to the original policy except for my tests.

    return;
}

1;