dagolden

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use DDS;
use JSON::XS;
use File::Slurp qw/read_file write_file/;
use Parse::CPAN::Authors;
use aliased 'CPAN::Testers::Common::Article';
use aliased 'CPAN::Testers::Report';

dagolden

t/03_nested_uplevels.t .. 
1..104
ok 1 - Right number of cases
ok 2 - Case: Call, Call, Call, Call, Wrap(Call)
ok 3 - Case: Call, Call, Call, Call, Wrap(Call) x 2
ok 4 - Case: Call, Call, Call, Call, Wrap(Call) x 3
ok 5 - Case: Call, Call, Call, Wrap(Call), Call
ok 6 - Case: Call, Call, Call, Wrap(Call), Wrap(Call)
ok 7 - Case: Call, Call, Call, Wrap(Call) x 2, Call
ok 8 - Case: Call, Call, Call, Wrap(Call) x 2, Wrap(Call)

dagolden

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

sub bump_it {
  my $version = shift || 0;
  my $new_ver;

  my $num_dots =()= $version =~ /(\.)/g;

dagolden

    # Archive::Tar versions >= 1.09 use the following to enable a compatibility
    # hack so that the resulting archive is compatible with older clients.
    # If no file path is 100 chars or longer, we disable the prefix field
    # for maximum compatibility.  If there are any long file paths then we
    # need the prefix field after all.
    $Archive::Tar::DO_NOT_USE_PREFIX =
      (grep { length($_) >= 100 } @$files) ? 0 : 1;

dagolden

$ dzil nop -v
[DZ] reading configuration using Dist::Zilla::Config::Finder
[TestRelease] online, Dist::Zilla::Plugin::TestRelease v2.100922
[@RJBS/@Classic/GatherDir] online, Dist::Zilla::Plugin::GatherDir v2.100922
[@RJBS/@Classic/PruneCruft] online, Dist::Zilla::Plugin::PruneCruft v2.100922
[@RJBS/@Classic/ManifestSkip] online, Dist::Zilla::Plugin::ManifestSkip v2.100922
[@RJBS/@Classic/MetaYAML] online, Dist::Zilla::Plugin::MetaYAML v2.100922
[@RJBS/@Classic/License] online, Dist::Zilla::Plugin::License v2.100922
[@RJBS/@Classic/Readme] online, Dist::Zilla::Plugin::Readme v2.100922
[@RJBS/@Classic/PkgVersion] online, Dist::Zilla::Plugin::PkgVersion v2.100922

dagolden

name              = Metabase-Fact
author            = David Golden <[email protected]>
author            = Ricardo Signes <[email protected]>
author            = H.Merijn Brand <[email protected]>
license           = Apache_2_0
copyright_holder  = David Golden

[BumpVersionFromGit]
version_regexp = ^release-(.+)$

dagolden

--- lib/Metabase/Client/Simple.pm	2010-04-22 13:56:38.000000000 -0400
+++ lib/Metabase/Client/Simple.pm.orig	2010-04-22 13:55:00.000000000 -0400
@@ -183,9 +183,8 @@
   my ($self, $res, $prefix) = @_;
   $prefix ||= "unrecognized error";
   if ( ref($res) && $res->header('Content-Type') eq 'application/json') {
-    my $entity = eval { JSON->new->ascii->decode($res->content) };
-    my $msg = $entity ? $entity->{error} : $res->content;
-    return "$prefix\: $msg";
+    my $entity = JSON->new->ascii->decode($res->content);

dagolden

sub content_metadata
{
    my $self = shift;
    my $content = $self->content;

    return { map { $_ => $content->{$_} }
	$self->required_keys, $self->optional_keys };
    } # content_metadata

dagolden

Apr 22 18:49:50 ubuntu metabase_web_beta: OK Test-Smoke-Metabase for perl:///commit/675ac12c19e6fe00eff6e604a7d637bf
Apr 22 18:49:50 ubuntu metabase_web_beta: OK CPAN-Testers-Report for cpan:///distfile/TMTM/DBIx-ContextualFetch-1.03.tar.gz
Apr 22 18:49:52 ubuntu metabase_web_beta: OK Test-Smoke-Metabase for perl:///commit/675ac12c19e6fe00eff6e604a7d637bf
Apr 22 18:49:53 ubuntu metabase_web_beta: OK CPAN-Testers-Report for cpan:///distfile/BINGOS/Module-Install-AutoLicense-0.04.tar.gz
Apr 22 18:49:54 ubuntu metabase_web_beta: OK Test-Smoke-Metabase for perl:///commit/675ac12c19e6fe00eff6e604a7d637bf
Apr 22 18:49:55 ubuntu metabase_web_beta: OK CPAN-Testers-Report for cpan:///distfile/RJBS/Email-Date-Format-1.002.tar.gz
Apr 22 18:49:56 ubuntu metabase_web_beta: OK Test-Smoke-Metabase for perl:///commit/675ac12c19e6fe00eff6e604a7d637bf
Apr 22 18:49:58 ubuntu metabase_web_beta: OK CPAN-Testers-Report for cpan:///distfile/BITMAN/Test-ShellScript-0.02.tar.gz
Apr 22 18:49:58 ubuntu metabase_web_beta: OK Test-Smoke-

dagolden

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use autodie;
use XDG;
use Tie::File;

tie my @index, 'Tie::File', "02packages.details.txt";