← Back to branch summary

~ubuntu-branches/ubuntu/quantal/libyaml-libyaml-perl/quantal-updates

« back to all changes in this revision

Viewing changes to inc/Module/Install/ReadmeFromPod.pm

  • Committer: Bazaar Package Importer
  • Author(s): Krzysztof Krzyżaniak (eloy)
  • Date: 2010-09-24 17:35:42 UTC
  • mto: (5.1.1 sid)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20100924173542-mdeiqw7ekrwotot4
Tags: upstream-0.34
Import upstream version 0.34

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/ReadmeFromPod.pm
 
1
#line 1
 
2
package Module::Install::ReadmeFromPod;
 
3
 
 
4
use 5.006;
 
5
use strict;
 
6
use warnings;
 
7
use base qw(Module::Install::Base);
 
8
use vars qw($VERSION);
 
9
 
 
10
$VERSION = '0.13';
 
11
 
 
12
sub 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 "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
 
 
33
sub _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