Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Prep a 0.04_01 release

  • Loading branch information...
commit f9dfdfb988cfb565143bd4baa74f788787fbbcd1 1 parent 7c63daa
Kevin Falcone authored
View
4 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
View
2  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
View
48 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
+
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.