view release on metacpan or  search on metacpan

lib/App/podweaver.pm  view on Meta::CPAN

328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
 
sub find_files_to_weave
{
    my ( $self, %options ) = @_;
    my ( $dist_root );
 
    $dist_root = $options{ dist_root } || '.';    
 
    return(
        File::Find::Rule->ignore_vcs
                        ->not_name( qr/~$/ )
                        ->perl_file
                        ->in(
                            grep { -d $_ }
                            map  { File::Spec->catfile( $dist_root, $_ ) }
                            qw/lib bin script/
                            )
        );
}
 
sub weave_distribution