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

• package Package::Transporter::Generator::Potential::Shell
  • ATB_PKG
  • ATB_DST_PKG
  • implement
  • matcher
• EOF

package Package::Transporter::Generator::Potential::Shell;
use strict;
use warnings;
BEGIN { require Shell; };
use parent qw(
	Package::Transporter::Generator
);

sub ATB_PKG() { 0 };
sub ATB_DST_PKG() { 1 };
my $prefix = 'shell_';

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

	unless($sub_name =~ m,^$prefix(\w+)$,) {
		return($self->failure(undef, $sub_name, "::Shell ['$sub_name' not matching '$prefix(\\w+)']"));

	}
	my $cmd = $1;
	return(Shell::_make_cmd($cmd));
}

sub matcher {
	return(sub { return(substr($_[1], 0, 6) eq $prefix); });
}

1;