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 )