=pod

=head1 NAME

Package::Transporter::Generator::Argument_in_Name - hardwire one argument in the name of the subroutine

=head1 SYNOPSIS

	#!/usr/bin/perl -W -T
	use strict;
	
	use Package::Transporter sub{eval shift}, sub {
		$_[0]->register_potential('::Argument_in_Name',
			'FOR_ANY', 'calc_');
	};
	
	sub calc {
		my ($correction, $a, $b) = @_;
		return($a * $correction/100 + $b);
	};
	
	package Other;
	use Package::Transporter sub{eval shift};
	
	print calc_5(7, 8), "\n"; # sets $correction = 5
	#my $result = calc_5 7, 8; # error

	exit(0);

=head1 DESCRIPTION

A proof-of-concept for another option for configuring the argument list in proxy calls.

=head1 ANYTHING ELSE

Please see the documentation of the upstream package L<Package::Transporter>.

=cut
