App-CPAN2Pkg

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "dist_author" => [
    "Jerome Quelin <jquelin\@gmail.com>"
  ],
  "dist_name" => "App-CPAN2Pkg",
  "dist_version" => "3.004",
  "license" => "perl",
  "module_name" => "App::CPAN2Pkg",
  "recommends" => {},
  "recursive_test_files" => 1,
  "requires" => {
    "DateTime" => 0,
    "Devel::Platform::Info::Linux" => 0,
    "Exporter::Lite" => 0,
    "File::ShareDir::PathClass" => 0,
    "Find::Lib" => 0,
    "FindBin" => 0,
    "Getopt::Long::Descriptive" => 0,
    "HTML::TreeBuilder" => 0,
    "HTTP::Request" => 0,
    "List::MoreUtils" => 0,
    "List::Util" => 0,

META.json  view on Meta::CPAN

      "develop" : {
         "requires" : {
            "Pod::Coverage::TrustPod" : "0",
            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08",
            "version" : "0.9901"
         }
      },
      "runtime" : {
         "requires" : {
            "DateTime" : "0",
            "Devel::Platform::Info::Linux" : "0",
            "Exporter::Lite" : "0",
            "File::ShareDir::PathClass" : "0",
            "Find::Lib" : "0",
            "FindBin" : "0",
            "Getopt::Long::Descriptive" : "0",
            "HTML::TreeBuilder" : "0",
            "HTTP::Request" : "0",
            "List::MoreUtils" : "0",
            "List::Util" : "0",

META.yml  view on Meta::CPAN

  App::CPAN2Pkg::Worker:
    file: lib/App/CPAN2Pkg/Worker.pm
    version: '3.004'
  App::CPAN2Pkg::Worker::Mageia:
    file: lib/App/CPAN2Pkg/Worker/Mageia.pm
    version: '3.004'
  App::CPAN2Pkg::Worker::RPM:
    file: lib/App/CPAN2Pkg/Worker/RPM.pm
    version: '3.004'
requires:
  DateTime: '0'
  Devel::Platform::Info::Linux: '0'
  Exporter::Lite: '0'
  File::ShareDir::PathClass: '0'
  Find::Lib: '0'
  FindBin: '0'
  Getopt::Long::Descriptive: '0'
  HTML::TreeBuilder: '0'
  HTTP::Request: '0'
  List::MoreUtils: '0'
  List::Util: '0'

lib/App/CPAN2Pkg/UI/Text.pm  view on Meta::CPAN

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use 5.012;
use strict;
use warnings;

package App::CPAN2Pkg::UI::Text;
# ABSTRACT: text interface for cpan2pkg
$App::CPAN2Pkg::UI::Text::VERSION = '3.004';
use DateTime;
use List::Util qw{ first };
use Moose;
use MooseX::Has::Sugar;
use MooseX::POE;
use MooseX::SemiAffordanceAccessor;
use POE;
use Readonly;
use Term::ANSIColor qw{ :constants };

Readonly my $K  => $poe_kernel;

lib/App/CPAN2Pkg/UI/Text.pm  view on Meta::CPAN

    event log_out => sub {
        my ($self, $modname, $line) = @_[OBJECT, ARG0 .. $#_ ];
        $self->_outputs->{$modname} .= "$line\n";
    };
    event log_err => sub {
        my ($self, $modname, $line) = @_[OBJECT, ARG0 .. $#_ ];
        $self->_outputs->{$modname} .= "$line\n";
    };
    event log_comment => sub {
        my ($self, $module, $line) = @_[OBJECT, ARG0 .. $#_ ];
        my $timestamp = DateTime->now(time_zone=>"local")->hms;
        $line =~ s/\n$//;
        print "$timestamp [$module] $line\n";
    };
    event log_result => sub {
        my ($self, $module, $result) = @_[OBJECT, ARG0 .. $#_ ];
        my $timestamp = DateTime->now(time_zone=>"local")->hms;
        local $Term::ANSIColor::AUTORESET = 1;
        print BLUE "$timestamp [$module] => $result\n"; 
    };
    event log_step => sub {
        my ($self, $module, $step) = @_[OBJECT, ARG0 .. $#_ ];
        my $timestamp = DateTime->now(time_zone=>"local")->hms;
        local $Term::ANSIColor::AUTORESET = 1;
        print BOLD "$timestamp [$module] ** $step\n"; 
    };
}


event module_state => sub {
    my ($self, $module) = @_[OBJECT, ARG0 .. $#_ ];
    my $app       = App::CPAN2Pkg->instance;
    my $modname   = $module->name;
    my $timestamp = DateTime->now(time_zone=>"local")->hms;

    if ( $module->local->status    eq "error" or
         $module->upstream->status eq "error" ) {
        local $Term::ANSIColor::AUTORESET = 1;
        print RED "$timestamp [$modname] error encountered\n";
        print "$timestamp [$modname] output follows:\n";
        print $self->_outputs->{$modname};
        print RED "$timestamp [$modname] aborting\n";
        $app->forget_module( $modname );
    }

lib/App/CPAN2Pkg/UI/Tk.pm  view on Meta::CPAN

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use 5.012;
use strict;
use warnings;

package App::CPAN2Pkg::UI::Tk;
# ABSTRACT: main cpan2pkg window
$App::CPAN2Pkg::UI::Tk::VERSION = '3.004';
use DateTime;
use List::Util qw{ first };
use Moose;
use MooseX::Has::Sugar;
use MooseX::POE;
use MooseX::SemiAffordanceAccessor;
use Readonly;
use Tk;
use Tk::Balloon;
use Tk::HList;
use Tk::NoteBook;

lib/App/CPAN2Pkg/UI/Tk.pm  view on Meta::CPAN

    };
    event log_err => sub {
        my ($self, $module, $line) = @_[OBJECT, ARG0 .. $#_ ];
        my $rotext = $self->_w( "rotext_$module" );
        $rotext->insert( 'end', "$line\n", "error" );
        $rotext->yview( 'end' );
    };
    event log_comment => sub {
        my ($self, $module, $line) = @_[OBJECT, ARG0 .. $#_ ];
        my $rotext = $self->_w( "rotext_$module" );
        my $timestamp = DateTime->now(time_zone=>"local")->hms;
        $rotext->insert( 'end', "* $timestamp $line\n", "comment" );
        $rotext->yview( 'end' );
    };
    event log_result => sub {
        my ($self, $module, $result) = @_[OBJECT, ARG0 .. $#_ ];
        my $rotext = $self->_w( "rotext_$module" );
        my $timestamp = DateTime->now(time_zone=>"local")->hms;
        $rotext->insert( 'end', "* $timestamp $result\n", "result" );
        $rotext->yview( 'end' );
    };
    event log_step => sub {
        my ($self, $module, $step) = @_[OBJECT, ARG0 .. $#_ ];
        my $rotext = $self->_w( "rotext_$module" );
        $rotext->insert( 'end', "\n\n** $step\n\n", "step" );
        $rotext->yview( 'end' );
    };
}

t/000-report-versions-tiny.t  view on Meta::CPAN

            $pmver = "$version";
        } else {
            $pmver = '<undef>';
        }
    }

    # So, we should be good, right?
    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('DateTime','any version') };
eval { $v .= pmver('Devel::Platform::Info::Linux','any version') };
eval { $v .= pmver('Exporter::Lite','any version') };
eval { $v .= pmver('File::ShareDir::PathClass','any version') };
eval { $v .= pmver('File::Spec','any version') };
eval { $v .= pmver('Find::Lib','any version') };
eval { $v .= pmver('FindBin','any version') };
eval { $v .= pmver('Getopt::Long::Descriptive','any version') };
eval { $v .= pmver('HTML::TreeBuilder','any version') };
eval { $v .= pmver('HTTP::Request','any version') };
eval { $v .= pmver('IO::Handle','any version') };