App-Magpie

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "dist_name" => "App-Magpie",
  "dist_version" => "2.010",
  "license" => "perl",
  "module_name" => "App::Magpie",
  "recursive_test_files" => 1,
  "requires" => {
    "App::Cmd::Setup" => 0,
    "CPAN::Mini" => 0,
    "CPAN::Recent::Uploads" => 0,
    "Config::Tiny" => 0,
    "DateTime" => 0,
    "Encode" => 0,
    "Exporter::Lite" => 0,
    "File::Copy" => 0,
    "File::HomeDir::PathClass" => 0,
    "File::ShareDir" => 0,
    "File::pushd" => 0,
    "Find::Lib" => 0,
    "LWP::Simple" => 0,
    "LWP::UserAgent" => 0,
    "List::AllUtils" => 0,

META.json  view on Meta::CPAN

            "Test::Pod::Coverage" : "1.08",
            "version" : "0.9901"
         }
      },
      "runtime" : {
         "requires" : {
            "App::Cmd::Setup" : "0",
            "CPAN::Mini" : "0",
            "CPAN::Recent::Uploads" : "0",
            "Config::Tiny" : "0",
            "DateTime" : "0",
            "Encode" : "0",
            "Exporter::Lite" : "0",
            "File::Copy" : "0",
            "File::HomeDir::PathClass" : "0",
            "File::ShareDir" : "0",
            "File::pushd" : "0",
            "Find::Lib" : "0",
            "LWP::Simple" : "0",
            "LWP::UserAgent" : "0",
            "List::AllUtils" : "0",

META.yml  view on Meta::CPAN

    file: lib/App/Magpie/Role/RunningCommand.pm
    version: '2.010'
  App::Magpie::URPM:
    file: lib/App/Magpie/URPM.pm
    version: '2.010'
requires:
  App::Cmd::Setup: '0'
  CPAN::Mini: '0'
  CPAN::Recent::Uploads: '0'
  Config::Tiny: '0'
  DateTime: '0'
  Encode: '0'
  Exporter::Lite: '0'
  File::Copy: '0'
  File::HomeDir::PathClass: '0'
  File::ShareDir: '0'
  File::pushd: '0'
  Find::Lib: '0'
  LWP::Simple: '0'
  LWP::UserAgent: '0'
  List::AllUtils: '0'

lib/App/Magpie/Action/WebStatic.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::Magpie::Action::WebStatic;
# ABSTRACT: webstatic command implementation
$App::Magpie::Action::WebStatic::VERSION = '2.010';
use DateTime;
use File::Copy;
use LWP::Simple;
use Moose;
use ORDB::CPAN::Mageia;
use Parse::CPAN::Packages::Fast;
use Path::Tiny;
use RRDTool::OO;
use Readonly;
use Template;

lib/App/Magpie/Action/WebStatic.pm  view on Meta::CPAN

    # images
    $self->log_debug( "images:" );
    my $imgdir = $dir->child( "images" );
    $imgdir->mkpath;
    $self->log_debug( " - mageia modules" );
    $rrd{mga_mods}->graph(
        image => $imgdir->child("mgamods.png"),
        width => 800,
        title => 'Number of available Perl modules in Mageia Linux',
        start => DateTime->new(year=>2012)->epoch,
        draw  => {
            thickness => 2,
            color     => '0000FF',
        },
        units_exponent => 0,
    );

    # template toolkit
    $self->log_debug( "template toolkit processing" );
    my $tt = Template->new({

lib/App/Magpie/Logger.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::Magpie::Logger;
# ABSTRACT: magpie logging facility
$App::Magpie::Logger::VERSION = '2.010';
use DateTime;
use MooseX::Singleton;
use MooseX::Has::Sugar;
use MooseX::SemiAffordanceAccessor;
use Term::ANSIColor qw{ :constants };

use App::Magpie::Config;


# -- public attributes

lib/App/Magpie/Logger.pm  view on Meta::CPAN

    $self->_log(@_);
    print STDERR RESET;
    die @_;
}


# -- private methods

sub _log {
    my $self = shift;
    my $timestamp = DateTime->now(time_zone=>"local")->hms;
    print STDERR "$timestamp [$$] [magpie] @_\n";
}


1;

__END__

=pod

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

    }

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

eval { $v .= pmver('App::Cmd::Setup','any version') };
eval { $v .= pmver('CPAN::Mini','any version') };
eval { $v .= pmver('CPAN::Recent::Uploads','any version') };
eval { $v .= pmver('Config::Tiny','any version') };
eval { $v .= pmver('DateTime','any version') };
eval { $v .= pmver('Encode','any version') };
eval { $v .= pmver('Exporter::Lite','any version') };
eval { $v .= pmver('File::Copy','any version') };
eval { $v .= pmver('File::HomeDir::PathClass','any version') };
eval { $v .= pmver('File::ShareDir','any version') };
eval { $v .= pmver('File::Spec','any version') };
eval { $v .= pmver('File::pushd','any version') };
eval { $v .= pmver('Find::Lib','any version') };
eval { $v .= pmver('IO::Handle','any version') };
eval { $v .= pmver('IPC::Open3','any version') };