Alzabo
view release on metacpan or search on metacpan
install_helpers/pod_merge.pl view on Meta::CPAN
\n= # next =foo marker, skipping all spaces. This just makes matching stop here
)
/
find_chunk($file, $from, $class, $1, $2)
/gxie;
mkpath( dirname($t_out) ) unless -d dirname($t_out);
if (-e $t_out)
{
chmod 0644, $t_out or die "Can't chmod '$t_out' to 644: $!";
}
open TO, ">$t_out" or die "Can't write to '$t_out': $!";
print TO $to or die "Can't write to '$t_out': $!";
close TO or die "Can't write to '$t_out': $!";
chmod 0644, $t_out or die "Can't chmod '$t_out' to 444: $!";
for ( $file, $t_out ) { s,^.*(?=Alzabo),,; s/\.pm$//; s,[\\/],::,g; }
print "merged $file docs into $t_out\n" if $verbose;
}
sub find_chunk
{
my ($file, $from, $class, $title, $until) = @_;
( run in 0.542 second using v1.01-cache-2.11-cpan-496ff517765 )