foreach ($args{Name}, $args{Require}, $args{Extra}) {
chomp $_ if defined $_;
}
+ $args{Get} ||= '';
+
my @extra_args = !defined $args{Extra} ? () : split /,/, $args{Extra};
my ($output, $body);
if ($args{File}) {
}
# test n+1
- cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
+ is($output, $args{Get}, "Output from autosplit()ing $args{Name}");
if ($args{Files}) {
$args{Files} =~ s!/!:!gs if $^O eq 'MacOS';
use AutoLoader 'AUTOLOAD';
1;
__END__
-sub obsolete {my $a if 0; return $a++;}
+sub obsolete {our $hidden_a; return $hidden_a++;}
sub gonner {warn "This gonner function should never get called"}
## Get
AutoSplitting *INC**PATHSEP**MOD*.pm (*DIR**PATHSEP**MOD**ENDPATHSEP*)