/usr/local/CPAN/Package-Transporter/Package/Transporter/Generator/Potential/Hello_Anything.pm

• package Package::Transporter::Generator::Potential::Hello_Anything
  • implement
• EOF

package Package::Transporter::Generator::Potential::Hello_Anything;
use strict;
use warnings;
use parent qw(
	Package::Transporter::Generator
);

sub implement {
	my ($self, $pkg, $pkg_name, $sub_name) = (shift, shift, shift, shift);

	my $sub_body = sprintf(
		qq{print 'Hello %s\n'},
		substr($sub_name, 6) || '');
	return($sub_body);
}

1;