[Bps-public-commit] RT-Extension-PriorityAsString branch, master, updated. 0.04-8-gf9dfdfb

[Kevin Falcone]

The branch, master has been updated
       via  f9dfdfb988cfb565143bd4baa74f788787fbbcd1 (commit)
      from  7c63daa90fc624f1bc360659d47d095dd66472e3 (commit)

Summary of changes:
 MANIFEST                             |  4 +++
 META.yml                             |  2 +-
 inc/Module/Install/ReadmeFromPod.pm  | 48 ++++++++++++++++++++++++++++++++++++
 lib/RT/Extension/PriorityAsString.pm |  2 +-
 4 files changed, 54 insertions(+), 2 deletions(-)
 create mode 100644 inc/Module/Install/ReadmeFromPod.pm

- Log -----------------------------------------------------------------
commit f9dfdfb988cfb565143bd4baa74f788787fbbcd1
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Mon Jul 30 09:27:50 2012 -0400

    Prep a 0.04_01 release

diff --git a/MANIFEST b/MANIFEST
index e87e469..d170de2 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,9 @@
 CHANGES
 html/Callbacks/PriorityAsString/Elements/RT__Ticket/ColumnMap/Once
+html/Callbacks/PriorityAsString/Search/Elements/PickBasics/Default
+html/Callbacks/PriorityAsString/Ticket/Elements/EditBasics/MassageFields
 html/Elements/SelectPriority
+html/Elements/SelectPriorityAsString
 html/Ticket/Elements/ShowPriority
 inc/Module/Install.pm
 inc/Module/Install/Base.pm
@@ -8,6 +11,7 @@ inc/Module/Install/Can.pm
 inc/Module/Install/Fetch.pm
 inc/Module/Install/Makefile.pm
 inc/Module/Install/Metadata.pm
+inc/Module/Install/ReadmeFromPod.pm
 inc/Module/Install/RTx.pm
 inc/Module/Install/Win32.pm
 inc/Module/Install/WriteAll.pm
diff --git a/META.yml b/META.yml
index b389eae..b782a80 100644
--- a/META.yml
+++ b/META.yml
@@ -24,4 +24,4 @@ requires:
   perl: 5.8.3
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.04
+version: 0.04_01
diff --git a/inc/Module/Install/ReadmeFromPod.pm b/inc/Module/Install/ReadmeFromPod.pm
new file mode 100644
index 0000000..348531e
--- /dev/null
+++ b/inc/Module/Install/ReadmeFromPod.pm
@@ -0,0 +1,48 @@
+#line 1
+package Module::Install::ReadmeFromPod;
+
+use 5.006;
+use strict;
+use warnings;
+use base qw(Module::Install::Base);
+use vars qw($VERSION);
+
+$VERSION = '0.12';
+
+sub readme_from {
+  my $self = shift;
+  return unless $self->is_admin;
+
+  my $file = shift || $self->_all_from
+    or die "Can't determine file to make readme_from";
+  my $clean = shift;
+
+  print "Writing README from $file\n";
+
+  require Pod::Text;
+  my $parser = Pod::Text->new();
+  open README, '> README' or die "$!\n";
+  $parser->output_fh( *README );
+  $parser->parse_file( $file );
+  if ($clean) {
+    $self->clean_files('README');
+  }
+  return 1;
+}
+
+sub _all_from {
+  my $self = shift;
+  return unless $self->admin->{extensions};
+  my ($metadata) = grep {
+    ref($_) eq 'Module::Install::Metadata';
+  } @{$self->admin->{extensions}};
+  return unless $metadata;
+  return $metadata->{values}{all_from} || '';
+}
+
+'Readme!';
+
+__END__
+
+#line 112
+
diff --git a/lib/RT/Extension/PriorityAsString.pm b/lib/RT/Extension/PriorityAsString.pm
index f192b0d..ee776af 100644
--- a/lib/RT/Extension/PriorityAsString.pm
+++ b/lib/RT/Extension/PriorityAsString.pm
@@ -4,7 +4,7 @@ use warnings;
 
 package RT::Extension::PriorityAsString;
 
-our $VERSION = '0.04';
+our $VERSION = '0.04_01';
 
 =head1 NAME
 

-----------------------------------------------------------------------