App-podweaver

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'File::Find::Rule::VCS'  => 0,
        'File::Slurp'    => 0,
        'IO::File'       => 0,
        'Log::Any'       => 0,
        'Log::Any::Adapter' => 0,
        'Log::Any::Adapter::Dispatch' => 0,
        'Module::Metadata'   => 1.000000,
        'Pod::Elemental' => 0,
        'Pod::Elemental::Transformer::Pod5' => 0,
        'PPI::Document'  => 0,
        'Try::Tiny'      => 0,
    },
    recommends => {
        'Pod::Weaver::PluginBundle::ReplaceBoilerplate' => 0,
    },
    meta_merge => {
        'resources' => {
            'repository' => 'http://github.com/illusori/Perl-App-podweaver',
            },
        },
    add_to_cleanup      => [ 'App-podweaver-*' ],

META.json  view on Meta::CPAN

            "File::Slurp" : 0,
            "IO::File" : 0,
            "Log::Any" : 0,
            "Log::Any::Adapter" : 0,
            "Log::Any::Adapter::Dispatch" : 0,
            "Module::Metadata" : "1",
            "PPI::Document" : 0,
            "Pod::Elemental" : 0,
            "Pod::Elemental::Transformer::Pod5" : 0,
            "Pod::Weaver" : "3.101632",
            "Try::Tiny" : 0
         }
      }
   },
   "provides" : {
      "App::podweaver" : {
         "file" : "lib/App/podweaver.pm",
         "version" : "1.00"
      }
   },
   "release_status" : "stable",

META.yml  view on Meta::CPAN

  File::Slurp: 0
  IO::File: 0
  Log::Any: 0
  Log::Any::Adapter: 0
  Log::Any::Adapter::Dispatch: 0
  Module::Metadata: 1
  PPI::Document: 0
  Pod::Elemental: 0
  Pod::Elemental::Transformer::Pod5: 0
  Pod::Weaver: 3.101632
  Try::Tiny: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: http://github.com/illusori/Perl-App-podweaver
version: 1.00

lib/App/podweaver.pm  view on Meta::CPAN

use File::Find::Rule::Perl;
use File::Find::Rule::VCS;
use File::Slurp ();
use File::Spec;
use Log::Any qw/$log/;
use Module::Metadata;
use Pod::Elemental;
use Pod::Elemental::Transformer::Pod5;
use Pod::Weaver;
use PPI::Document;
use Try::Tiny;

our $VERSION = '1.00';

sub FAIL()              { 0; }
sub SUCCESS_UNCHANGED() { 1; }
sub SUCCESS_CHANGED()   { 2; }

sub weave_file
{
    my ( $self, %input ) = @_;

lib/App/podweaver.pm  view on Meta::CPAN

            if $log->is_warning();
        $weave_args{ version } = $input{ dist_version };
    }
    else
    {
        $log->warningf( "Unable to parse version in '%s' and " .
            "no dist_version supplied", $file )
            if $log->is_warning();
    }

    #  Try::Tiny this, it can croak.
    try
    {
        $pod_document = $weaver->weave_document( \%weave_args );

        $log->errorf( "weave_document() failed on '%s': No Pod generated",
            $file )
            if $log->is_error() and not $pod_document;
    }
    catch
    {