Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Prep a 0.04_01 release

  • Loading branch information...
commit f9dfdfb988cfb565143bd4baa74f788787fbbcd1 1 parent 7c63daa
Kevin Falcone authored July 30, 2012
4  MANIFEST
... ...
@@ -1,6 +1,9 @@
1 1
 CHANGES
2 2
 html/Callbacks/PriorityAsString/Elements/RT__Ticket/ColumnMap/Once
  3
+html/Callbacks/PriorityAsString/Search/Elements/PickBasics/Default
  4
+html/Callbacks/PriorityAsString/Ticket/Elements/EditBasics/MassageFields
3 5
 html/Elements/SelectPriority
  6
+html/Elements/SelectPriorityAsString
4 7
 html/Ticket/Elements/ShowPriority
5 8
 inc/Module/Install.pm
6 9
 inc/Module/Install/Base.pm
@@ -8,6 +11,7 @@ inc/Module/Install/Can.pm
8 11
 inc/Module/Install/Fetch.pm
9 12
 inc/Module/Install/Makefile.pm
10 13
 inc/Module/Install/Metadata.pm
  14
+inc/Module/Install/ReadmeFromPod.pm
11 15
 inc/Module/Install/RTx.pm
12 16
 inc/Module/Install/Win32.pm
13 17
 inc/Module/Install/WriteAll.pm
2  META.yml
@@ -24,4 +24,4 @@ requires:
24 24
   perl: 5.8.3
25 25
 resources:
26 26
   license: http://dev.perl.org/licenses/
27  
-version: 0.04
  27
+version: 0.04_01
48  inc/Module/Install/ReadmeFromPod.pm
... ...
@@ -0,0 +1,48 @@
  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.12';
  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 "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
+
  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
+
2  lib/RT/Extension/PriorityAsString.pm
@@ -4,7 +4,7 @@ use warnings;
4 4
 
5 5
 package RT::Extension::PriorityAsString;
6 6
 
7  
-our $VERSION = '0.04';
  7
+our $VERSION = '0.04_01';
8 8
 
9 9
 =head1 NAME
10 10
 

0 notes on commit f9dfdfb

Please sign in to comment.
Something went wrong with that request. Please try again.