Name | Date | Size | #Lines | LOC | ||
---|---|---|---|---|---|---|
.. | 27-Oct-2012 | - | ||||
Base.pm | H A D | 27-Oct-2012 | 1.1 KiB | 84 | 52 | |
Can.pm | H A D | 27-Oct-2012 | 3.1 KiB | 155 | 108 | |
Fetch.pm | H A D | 27-Oct-2012 | 2.4 KiB | 94 | 75 | |
Include.pm | H A D | 27-Oct-2012 | 525 | 35 | 25 | |
Makefile.pm | H A D | 27-Oct-2012 | 11.8 KiB | 419 | 318 | |
Metadata.pm | H A D | 27-Oct-2012 | 17.7 KiB | 723 | 589 | |
ReadmeFromPod.pm | H A D | 27-Oct-2012 | 916 | 49 | 35 | |
TestBase.pm | H A D | 27-Oct-2012 | 539 | 30 | 20 | |
Win32.pm | H A D | 27-Oct-2012 | 1.8 KiB | 65 | 47 | |
WriteAll.pm | H A D | 27-Oct-2012 | 1.2 KiB | 64 | 45 |
ReadmeFromPod.pm
1#line 1 2package Module::Install::ReadmeFromPod; 3 4use 5.006; 5use strict; 6use warnings; 7use base qw(Module::Install::Base); 8use vars qw($VERSION); 9 10$VERSION = '0.12'; 11 12sub readme_from { 13 my $self = shift; 14 return unless $self->is_admin; 15 16 my $file = shift || $self->_all_from 17 or die "Can't determine file to make readme_from"; 18 my $clean = shift; 19 20 print "Writing README from $file\n"; 21 22 require Pod::Text; 23 my $parser = Pod::Text->new(); 24 open README, '> README' or die "$!\n"; 25 $parser->output_fh( *README ); 26 $parser->parse_file( $file ); 27 if ($clean) { 28 $self->clean_files('README'); 29 } 30 return 1; 31} 32 33sub _all_from { 34 my $self = shift; 35 return unless $self->admin->{extensions}; 36 my ($metadata) = grep { 37 ref($_) eq 'Module::Install::Metadata'; 38 } @{$self->admin->{extensions}}; 39 return unless $metadata; 40 return $metadata->{values}{all_from} || ''; 41} 42 43'Readme!'; 44 45__END__ 46 47#line 112 48 49