view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    my $libscan = \&{"ExtUtils::MM_Any::libscan"};
    *{"ExtUtils::MM_Any::libscan"} = sub {
        return '' unless $libscan->(@_);
        return '' if $_[1] =~ /\.sw[p-z]$/;
        return $_[1];
    };
}

{
    map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
Directory::Scratch
_END_

    map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Config::General
Config::JFDI
Data::Dump 1.14
Data::UUID
Date::Manip
DateTime
DateTimeX::Easy
DBD::SQLite
DBI
DBIx::Simple

Makefile.PL  view on Meta::CPAN

SQL::Script
Scalar::Util
String::Util
Text::Table
WWW::Mechanize
WWW::UsePerl::Journal::Post 
_END_
}

if (-e 'inc/.author') {
    my $all_from = join '/', 'lib', split m/-/, name . '.pm';
    `perldoc -tF $all_from > README` if ! -e 'README' || (stat $all_from)[9] > (stat 'README')[9];
}

install_script glob('script/pm-announce');

auto_install;

WriteAll;

lib/App/PM/Announce/Util.pm  view on Meta::CPAN

use Scalar::Util qw/blessed/;

sub age {
    my $class = shift;
    my $dtime = shift;
    $dtime->set_time_zone("UTC") if blessed $dtime && ($dtime = $dtime->clone);
    my $now = DateTime->now;


    my $age_delta = DateCalc(ParseDate($dtime.""), ParseDate($now.""));
    my ($week, $day, $hour, $minute, $second) = split m/:/, scalar Delta_Format($age_delta, 2, "\%wv:\%dv:\%hv:\%mv:\%sv");
    my $age;
    if ($week) {
        $age = scalar Delta_Format($age_delta, 2, "\%wh weeks");
    }
    elsif ($day) {
        $age = scalar Delta_Format($age_delta, 2, "\%dh days");
    }
    elsif ($hour) {
        $age = scalar Delta_Format($age_delta, 2, "\%hh hours");
    }