view release on metacpan or  search on metacpan

Arguments.pm  view on Meta::CPAN

    } else {
      my $longmess;

      {
	local $Carp::CarpLevel = 1;
	$longmess = Carp::longmess ('');
      }

      $longmess =~ s/\n.*//s;

      # The funky last argument is so that croak looks right
      push @DELAYED_CHECKS,
	[$package, $coderef, [@arguments], $longmess];
    }

    grep !/^$Arguments_Package\s*\(/, @attributes;
  }
}

sub synthesize_call_wrapper ($$$$@) {
  my ($package, $sub_name, $prototype, $longmess, @arguments) = @_;