Name | Date | Size | #Lines | LOC | ||
---|---|---|---|---|---|---|
.. | 07-Dec-2010 | - | ||||
AuthorTests.pm | H A D | 07-Dec-2010 | 1.1 KiB | 60 | 39 | |
Base.pm | H A D | 07-Dec-2010 | 1.1 KiB | 84 | 52 | |
Can.pm | H A D | 07-Dec-2010 | 1.7 KiB | 82 | 57 | |
Fetch.pm | H A D | 07-Dec-2010 | 2.4 KiB | 94 | 75 | |
Include.pm | H A D | 07-Dec-2010 | 525 | 35 | 25 | |
Makefile.pm | H A D | 07-Dec-2010 | 11.5 KiB | 416 | 320 | |
Metadata.pm | H A D | 07-Dec-2010 | 17.5 KiB | 716 | 585 | |
ReadmeFromPod.pm | H A D | 07-Dec-2010 | 612 | 37 | 26 | |
Repository.pm | H A D | 07-Dec-2010 | 2.2 KiB | 89 | 67 | |
TestBase.pm | H A D | 07-Dec-2010 | 539 | 30 | 20 | |
Win32.pm | H A D | 07-Dec-2010 | 1.8 KiB | 65 | 47 | |
WriteAll.pm | H A D | 07-Dec-2010 | 1.2 KiB | 64 | 45 |
ReadmeFromPod.pm
1#line 1 2package Module::Install::ReadmeFromPod; 3 4use strict; 5use warnings; 6use base qw(Module::Install::Base); 7use vars qw($VERSION); 8 9$VERSION = '0.10'; 10 11sub readme_from { 12 my $self = shift; 13 return unless $Module::Install::AUTHOR; 14 my $file = shift || return; 15 my $clean = shift; 16 require Pod::Text; 17 my $parser = Pod::Text->new(); 18 open README, '> README' or die "$!\n"; 19 $parser->output_fh( *README ); 20 $parser->parse_file( $file ); 21 return 1 unless $clean; 22 $self->postamble(<<"END"); 23distclean :: license_clean 24 25license_clean: 26\t\$(RM_F) README 27END 28 return 1; 29} 30 31'Readme!'; 32 33__END__ 34 35#line 94 36 37